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The information in this document is subject to change without 
notice and should not be construed as & commitment by Digital 

Equipment Corporation. Digitai Equipment Corporation assumes 
. peegennseees ty for amy errors that may appear in this 
ocument. 


The software described in this document is furnished under a 
license and may only be used or copied in accordance with the 
terms of such license. 


Digital Equipment Corporation assumes no neepene ti itis for 
the use or reliability of its software on equipment that is 
not supplied by Digital. 


Copyright (C) 1977 by Digital Equipment Corporation 
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ABSTRACT 


The function of the DMC11 diagnostics is to verify that the 
option operates according to specifications. The diagnostics 
verfiy that there are no malfunctions and the all operations 
of the DMC11 are correct in its environment. 


Parameters must be set up to alert the diagnostics to the 
DMC11 configuration. hese parameters are contained in the 
STATUS TABLE and are generated in two ways: 1) Manual 
Input - the operator anSwers questions. 2) Autosizing - the 
program determines the parameters automatically. 


DZDMH tests the DMCLI-AL micro-processor (M8200-YB) with rem 
speed crom, or the KMC11 micro-processor (M8204). It performs 


jump tests on the micro-processor, verifies the contro] ROM of 
he MBCOO-YB, and tests the CRAM and other unique functions of 
the M8204. tf a DMCII-AL (MB82O0-YB) and line unit (MB202-YA 


or MB202-YD) are present, free-running tests are performed. 
These tests are no if a KMC (M8204) or no line-unit is 
present. The best test is with a line-unit installed. OZDMH 
can be used as a Heat Test Diagnostic by Manufacturing. 


Currently there are four off line diagnostics that are to be 
run in sequence to insure that if an error should occur it 
will be detected at an early stage. 


NOTE: Additional diagnostics may be added in the future. 
The four diagnostics are: 


1. DZDMC [REV] Basic W/R and Micro-processor tests 

2. DZDME [REV] DDCMP Line unit tests 

3. DZDOMF (REV) BITSTUFF Line unit tests 

3. DZDMG [REV] Low speed jump and Free-running tests (Heat 

test tape) NOTE: DZDMG {S RUN ONLY ON A DMC11-AR’ (MS200-YA). 
ME fREY) aia speed jump and a gene yeniag tests (Heat 

test tape) NOTE: DZOMH 1S RUN-ONLY ON A DMCLI-AL ¢mB200-vB). 


REQUIREMENTS 

EQUIPMENT 

Rog PDP11 family CPU (except an LSI-11) with minimum 8k memory 
ASR 33 (or equi ivalent) 


DMC11-AL (MB200-YB) or an KMC11-A (M8204) with a DMC11-MA or a 
DMC11-MD 
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STORAGE 


Program will use all 8K of memory except where ABL and 

reside. Locations’ 1500 thru 1640; contain 
the “STATUS TABLE” information which is generated at start of 
diagnostics by manual input (questions) or automatically 
(au ra: This area is an overlay area and should not be 
altered by the operator. 


LOADING PROCEEDURE 

METHOD 

All pre rams are in absolute format and are loaded using the 
ABSO UTE LOADER. NOTE: if the diagnestics are on a media such 
as DISK ,MAGTAPE,DECTAPE, or CASSETTE; follow instructions 
for the monitor which has been provided on that specific 
media. 

ABSOLUTE LOADER starting address *500 


MEMORY ¥* SIZE 


4k 17 
8k 37 
12k $7 
16k 77 
20k 117 
24k 137 
28k 157 


Place address of ABS loader into switch register. 
(also place ‘HALT’ SW up) 


Depress ’LOAD ADDRESS’ key on console and release. 


Depress ‘START KEY’ on conscle and release (program should now 
be loading into CPU) 
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STARTING PROCEEDURE 


a. Set switch register to 000200 

b. Depress "LOAD ADDRESS’ key and 

c. Se to zero for ’AUTO SIZIN 
- (questions) or SWR bit7=1 
set up by a previous start or 
diagnostic. 

d. Depress *START KEY’ and release. The program will type 
Maindec Name and program name (if this was the first start 
up of the program) and also the following: 


MAP OF DMC11 STATUS 


PC CSR STAT1 STAT2 STAT3 


poy 

G’ or SWR bitO=1 for manual 
to use existing parameters 
a@ previously run 1 


001590 160010 145310 177777 000000 
0015i0 160020 145320 177777 000000 


The program will type ’R’ and proceed to run the diagnostic. 
The above is only an example. This would indicate the status 
eggs ry Be — 1560 oo progres, yg te pfzenie 
é a j i . 
OTA a ae eC I Thera 
S DONE. For information of status table see section 8.4 for 
elp. 


If the diagnostic was started with SWOO=1 lenbaeteng manual 
parameter input then the following shows an example of the 
questions asked and some examole answers: 


HOW MANY OMC11’S TO BE TESTED?1 


01 

CSR_ADDRESS? 160010 

VECTOR ADDRESS?310 

BR PRIORITY LEVEL? (4.5,6,7)75 

DOES MICRO-PROCESSOR HAVE GRAM? (Y OR NN 

WHICH LINE UNIT? IF NONE TYPE “N", IF M8201 TYPE “1", IF 
S THE LOOP BACK CONNECTOR ON?Y 


I 
SWITCH PAC#1 (DDCMP LINE) ?377 
SWITCH PAC#2 (BM873 BOOT ADD) 7377 


Following the questions the status map is printed out as 
described above, the information in the map reflects the 
answers to the questions. If the diagnostic was started with 
SWOO=0 and SWO7=0 (AUTO-SIZING) then no guestions are asked 
and only the status-map is printed out. if AUTO-SIZING is 
used the status information must be verified to be correct 
(match the hardware). if it does not match the hardware the 
Btagasetis must be restarted with SWOO=1 and the questions 
answered. 
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CONTROL SWITCH SETTINGS 


Su 15 Set: Halt on error 
: Loop on current test 

SW 13 Set: Inhibit error print out 

SW le Set: Inhibit type out/abell on error. 

Si 11 Set: Inhibit iterations. (quick pass) 

SW 10 Set: Escape to next test on error 

SW O09 Set: Loop with current data 

Sw O8 Set: Catch error and loop on it 

SW O7 Set: Use previous status table. 

SW O06 Set: Halt in ROMCLK routine before clocking 

micro-processor 

SW OS Set: Reserved 

SW O4 Set: Reserved 

SW O3 Set: Reselect DMC11’s desired active 

SW D2 Set: Lock on selected test 

SW Ol Set: Restart program at selected test 

SW O00 Set: Build new status table from questions. (If SWO7=0 
and SWOO=0 a new status table is built by 
auto-sizing) 


d 
t 


Switch O06 and O8-15 are dynamic and can be changed as nee 
while the diagnostic is running. Switches 00-03 and switch 
are static, and are used only on starting or restarting 
diagnostic. 


ed 
07 
he 
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SWITCH REGISTER OPTIONS (at start up) 


RESTART PROGRAM AT SELECTED TEST. It is strongly 
quaqestes that at least one pass has been made before 
trying to select a test, the reason being is that the 
rogram has to clear areas and set up parameters. 
hen this switch is used the diagnostic will ask TEST 

NO.? Answer by typing the number of the test desired 
poe Seer age return to begin execution at the selected 
est. 


LOCK ON SELECTED TEST. This switch when used with 
SWOl will cause the program to constantly loop on the 
selected test. Hitting any key on the console will 
let it advance to the next test and loop until a key 
is hit again. If SWO2=0 when SWOl is used. The 
program will begin at the selected test and continue 
normal operations. 


RESELECT DMC11°S DESIRED ACTIVE. Please note that a 
message is typed out for setting the switch register 
equal to DMC11"s active. this means if the system has 
four DMClls; bits ,02,03 will be set in loc 
"DMACTV’ from the switch’ register. Using this 
switch(SWOO) alters that location; therefore if four 
DMCl1ls are in the system ***D0 NOTHEEX set switchs 
greater than SW 03 in the up position. this would be 
a fatal error. do not select more active DMClls than 
there is information on in the status table. 


A: Load address 200 

B: Start with SW O0=1 

C: Program will type message 

D Set a switch Yor each DMC desired active. 
EXAMPLE: If you have 4 DMC’s but “ety want to 
run the first and the last set SWR bits 0 and 
2= 1. PRESS CONTINUE 


E: Number (IF VALID) will be in data lights 
(excluding 11/705) 
Fs ith In other switch settings desired. 


Set wi 
PRESS CONTINUE. 
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DYNAMIC SWITCHES 
ERROR SWITCHES 


SW 12 Delete print out/bell on error. 

SW 13 Delete error printout. 

Halt on the error. 

SW O08 Goto gee of the test(on error). 
SW 10 Goto next testlon error). 


SCOPE SWITCHES 


1. SWO6 Halt in  ROMCLK' routine before clocking 
micro-processor instruction. This allows the 
ete to scope a micro-processor instruction in 
the static state before it is clocked. Hit 


Wu 
w 
= 
-_— 
uw 


continue to resume running. 

2. SWOS (if enabled by *SCOP1’) on an error; If an ’#’ is 
Sa in front of the test no. lex. *TEST NO. 
O } SWOS is incorporated in that test and 
therefore SWOS is usually the Rest syi th for the 
scope loop (SW14=0, swlo=d, SWO9=1, SWO8=0). If 
SWOS is not enabeled; and there is a HARD error 
(constant); SWOS is best. (SW14=1,0, SW10=0 
SWO9=0, SWOS=1). for intermittemt errors; Sw14=h 
will loop on test reguardless of error or not 
error. (SW14=1, SW10=0, SWO9=0, SWO8=1,0) 

3. SW1l Inhibit interations. 

4. SW1Y Loop on current test. 


STARTING ADDRESS 


Starting address is at OOO200 there are no other starting 
addresses for the DMC11 diagnostics. (See Section 4.0) 


NOTE: If address OOOOW2 is non-zero the program assumes it 
is under 11 or XXDP control and will act 
accordingly after all available DMC11’s are tested the 
program will return to ’XXDP’ or ’ACT-11’. 


OPERATING PROCEDURE 
mor oreeren bs fei tpatis started messages as described in 
wi 


section 4. be printed, and program will begin running 
the diagnostic 
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PROGRAM AND/OR OPERATOR ACTION 
The typical approach should be 


Halt on error (via SW 15=1) when ever an error occurs. 


. Clear SW 15. 
3. Set SW 14: (loop on this test) 
8. Set SW 13: (inhibit error print out) 


The TEST NUMBER and PC will be typed out and possibily an 
error message (this depends on the test) to give the operator 
an idea as tO the source of the problem. If it is necessar 
+ hope wore taternetion concergiag the seer Papert eS 
a ich was @ an en 
NOTE THE Peo] URE ERROR REPORT this way. the EXACT FUNCTION of 
the test CAN BE DETERMINED. 
ERRORS 


As described previously there will always be a TEST NUMBER and 

PC nuped out at the time of an error evens SW 13=0 and SW 

12=0). in most cases additional information will be supplied 

i the the error message to give the operator an indication of 
@ error. 


ERROR RECOVERY 


If for some reason the DMC11 should ‘’HANG THE BUS’ (gain 
control] of bus so that console manual functions are inhibited) 
an init or power down/up is necessary for operator to regain 
control of cpu. this should nagpees look in location 
"TSTNO’ (address 1226)for the number of the test that was 
running at the time of the catastrophic error. In this way 
the operator will have an idea as to what the DMC11 was doing 
at the time of the error. 


RESTRICTIONS 
STARTING RESTRICTIONS 


See section 4. (PLEASE) 

Status table should be verified reguardless of how program was 
started. Also it is important to use this sisting along with 
oa Sas ertNe SS printed on the TTY to completly isolate 
protlems. 
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OPERATING RESTRICTIONS 


a first ting 8 nt ge «eh : ae ty core - ot 
@ must be set_u is is done manual inpu 
(SWOU=1) or by ee (SWOO=0 and sii07=0)! Thereafter 
however the status table need not be setup by subsequent 
restarts or even es, the next DMC diagnostic because the 
STATUS TABLE is over ayes. The current parameters in the 
STATUS TABLE are used when SWO7=1 on start up. 


HARDWARE CONFIGURATION RESTRICTIONS 


DMC11(M8200)- Jumper Wl must be in, and switch 7 of E76 must 
be in the OFF position. 


KMC(M8204)- Jumper Wl must be in. 

LINE UNIT(M8201)- Jumpers W1, We 
an 

POSITION. 


LINE UNIT (M8202)- Jumper Wl must be in. SWB of E26 must be 
in the OFF position. 


MISCELLANEOUS 
EXECUTION TIME 


All DMC11 device diagnostics will give an "END PASS’ geese 
one no errors and swl2=0) within 4mins. This is 
essunt og Wll=1 (DELETE ITERATIONS) is set to give the fastest 
possiblé execution. The actual execution time depends greatly 
on pe POP11 CPU configuration and the amount of memory in the 
system. 


PASS COMPLETE 


NOTE: EVERY time the program is started; the tests will run 
as_ if SW1l (delete iterations) was up (=1). This is to 
"VERIFY NO HARD ERRORS’ as soon as_ possible. Therefore the 
first pass -EACH TIME PROGRAM IS STARTED- will be a "QUICK 
PASS’ until all DMC11’s in system are tested. When the 
diagnostic has completed a pass the following is an example of 
the print out to be expected. 


END PASS DZDMH CSR: 175000 VEC: 0300 PASSES: 000001 
ERRORS: 000000 


NOTE: The pass count and error counts are cummulitive for 
each DMC11 that is roneieg, and are set to zero only 
when the diagnostic is started. Therefore after an 
overnight run for example, the total passes and errors 
for each DMC11 since the diagnostic was started are 
refiected in PASSES: and ERRORS:. 


and WY must be IN Jumpers 


JOl 
J 


must be OUT.’ SWS of E2b must be in the ON 
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KEY LOCATIONS 


RETURN (1214) Contains the address where program will return 
when iteration count is reached or if loop on 
test is asserted. 


NEXT (1216) Contains the address of the next test to be 
peformed. 


TSTNO (1226) Contains the number of the test now being 
peformed. 


RUN (1316) The bit in *RUN’ always points to the OMC11 
current] at tested. EXAMPLE: (RUN) 
1302/00000000010 OO00 Means that DMC11 10.06 
is the DMC11 now running. 


DMCROO-DMCR17 
DMSTOO-DMST17 
(1500)-( 1640) 
These locations contain the information needed 
to test up to 16 (decimal) DMClis sequential . 
the contain the CSR, VECTOR an STATUS 
conterning the configuration of each DMCi1. 


DMFCTY (1306) Each bit set in this location indicates that 
the associated DMC11 will be tested in turn. 
ras, SCT) [pesos a te aqeae 

a no. w ested. 
Ee PCL ne 10) TP FETODROOGODOOOLAGOL ‘escs 
that DMC11 no. 00,04 will be tested. 


DMCSR (1404) cenjetas the CSR of the current DMC11 under 
est. 


*STATUS TABLE’ (1500-1640) 


The table is filled by AUTO SIZING or by the manual parameter 
input ‘qpessiong! as described previously. Also if desired by 
user; the locations may be altered by hand (toggled in) to 
suit the specific configuration. 


The ozoasts status om | shown below contains information for 
two DMC11°S. the table can contain up to 16 OMC11’S. 
rot heulag the map is a description of the bits for each map 
entry 


MAP OF DMC11 STATUS 


PC CSR STAT STAT2 STAT3 


001500 160010 145310 177777 000000 
001519 160020 016320 000000 000000 


LO 
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Each map entr “tw a words which contain the status 
information lor . The PC shows where in a ents 
the first of the 4 A. a In_ the g7anp ls above the firs 

DMC’S status is in locations, 1500, 1502, 1504, and 1506. The 
second DMC status is located at 1sio, iSl2, 1514, and 1516. 

if information contained in each 4 word. entry is defined as 
dllows: 


CSR: Contains DMC11 CSR address 


STAT1: BITS 00-08 IS DMC11 VECTOR ADDRESS 
BIT15=1 Hp gt gS as HAS si 


HAS CR 
BITI4=] Let UND C 3a RAR ON 
Bitte ge 
T13=0 LINE UNIT IS aN M8 6 
BIT13=1 LINE UNIT IS AN M8202 
BIT12=1 NO LINE UNIT 
BITS 09-11 IS DMC11 BR PRIORITY LEVEL 
STAT2: LOW BYTE IS SWITCH PAC#1 (DDCMP _L NUMBER ) 
HIGH BYTE is Su YoH PAC#2 (BNg73 A0oT RDB) 
STAT3: BITO=1 PERFORM FREE RUNNING TESTS ON KMC 
(must be set manually. SEE TEST SO) 
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METHOD OF AUTO SIZING 
FINDING THE CONTROL STATUS REGISTER. 


The auto-sizing routine finds a DMC11 as follews: It starts 
at address 16 and tests all address in jacrements of 10 up 
to and including address 167760. If the acéress does not time 
out, ies $10} {eutng is oc ne first CROM address is written 
to a hen it is read back. If it contains a or 
isso - 63220 a DMC11 o* KMCL1 has been found, if net the 
address is updated by 10 and the seere® continues. A 1 
indicates a DMC11 with no CROM wr indicates a KMC11 
with CRAM and a 63220 indicates a beet with the DOCMP CROM. 
Further tests are performed at this point to determine which 
line wait, if any, is installed, 4 a loop~back connector is 
installed’ and various switch settings on the line unit. S 
IS WHY tHE STAT US TABLE MUST BE VERIFIED BY Me’ USER 

ANY OF THE INFORMATION DOES NOT AGREE WITH THE HARDWARE THE 
DIAGNOSTIC MUST BE RESTARTED AND THE QUESTIONS MUST BE 
ANSWERED All DMC11’s in the pusten will be found by the 
auto-sizer. If it does not find a D i? the diagnostic must 
be restarted and the questions answered 


FINDING THE VECTOR AND BR LEVEL 


The vector area (address 300-776) is ap thed with the 
instruction IOT and °.4+2’ (next address). The processor 
status is started at 4 and the DMC is rog rammed to interrupt. 

The PS is lowered 1 until the one in inteprup ts, a Seley is is 
made and if no int est & occures at PS level because 

bad DMC11) the p progr ee assumes vector + HS theta t BR level 
S and the problem should be fixed in the diagnostic. Once the 
problem is Prized; the program should be ‘t. etup oqeis to get 
correct vector. If an interupt occured; the addre$s to which 
the DMC11 interupted to is picked up and paper sas as the 
vector. NOTE: if the vector reported is not the ctor set 
uP by you; there is a problem and AUTO SIZING. should not be 
on 


SOFTWARE SWITCH REGISTER 


If the diagnostic is run on an 11/04 or other CPU without a 
switch register then a software switch register is used to 
allow user the same switch options as described previously. 

If the hardware switch register does not exist or one s 
and it contains all onés (177777) this software switch 
register is used. 


Control: 


To obtain control at any allowable time 2 ctrl" execution of 
the diagnostic the operator ¢t pes. @ on the console 
terminal keyboard. As soon as thd recognized, by 
the diagnostic, the following A... will be displayed: 
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SWR=XXXXXX NEW? 


Where XXXXXX is the current contents of the software switch 
register in octal. The software control routine will then 
await operator action. At which time the operator is required 


to type one or more of the legal characters: 1) 0-7, 
line teat<LF>), 3) carriage return(<CR>), or 4) control-U 
(CTRL U). No check is made for legality. If the input 


character is not a <LF>, <CR>, or CTRL U it is assumed to be 
an octal digit. 


To change the contents of the SSR the operator simp! types 
the new desired value in octal - leading zeros need not be 
typed. And terminates the input anes with a <CR> or <LF> 
dépending on the program action desired as described below. 
The input value will be truncated to the last 6 digits typed. 
At least one digit must be typed on any given nput string 
prior to the terminator before a change to the SSR will occur. 


When the input string is terminated with a <CR> the diagnostic 
will continue execution from the point at which it was 
interrupted. If a <CR> is the only thing typed the program 
will continue without changing the SSR. The <LF> differs from 
abe CCR) pH restarting the program as if it were restarted at 
address ; 


If a CTRL U is typed at any point in the input string prior to 
the terminator the in - value will be disregarded and the 
prompt displayed (SWR = Lxxxxx NEW?). 


To set the SSR for the starting switches, first load the 
diagnostic, then hit CTRL G, then start the diagnostic. 
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MAINDEC-11-DZDMH-A _DMC11 LOCAL CROM, JUMP, AND FREE RUNNING TESTS 
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SERLAARARERERALERARRRRERES TEST | RRRRARRRRRRAALA RRR RELA LEER S 
TEST OF BR RIGHT SHIFT 

VERIFY THAT A DEST OF BR RSH (011) OF A MICRO-INSTRUCTION 
SHIFTS THE RESULTING BR DATA RIGHT ONCE. 


SELLAAERRERRERERERERRRREEE TEST OC Re REe RR RRRRRAAEAEA EL ERE EERE 
IOP CRAM WRITE/READ TEST 
FLOAT A 1 THROUGH EACH CRAM LOCATION 


JE HEHEHHHHEHHHHEEHHHEEEHH TEST 3 XRRRREREEEELER ELEN EEEEEE EE 
IOP CRAM WRITE/READ TEST 
FLOAT A O THROUGH EACH CRAM LOCATION 


RHAALRRERRARRREEERRREREREEE TEST 4 RRR R REE R ARR A REAR REESE 
IOP CRAM DUAL ADDRESSING TE 

WRITE EACH ADDRESS INTO ITSELF a. EACH 

ADDRESS TO VERIFY CORRECT ADDRESS 


SLERAEELERERELESEERSREEERE TEST S See KRRRRRRRRRRRALRERAE LAE EE 


TE 
THIS TEST WRITES THE CRAM WITH THE CROM MICRO-CODE MAP 
THEN READS IT BACK AND COMPARES EACH ADDRESS WITH THE 
DUPLICATE OF THE CRON MICRO-CODE. 


RELLAALEREERRRRARERERHRELE TEST 6 SeRRRERREREREEERAEAEEELELEE 
IOP MAIN MEMORY TEST 
FLOAT A 1 THROUGH ALL MAIN MEMORY LOCATIONS 


SELAERARRSRRARRRREERERERERE TEST 7 2 RRS RRRRRARRRRA REA RAE RE EEE 
IOP MAIN MEMORY TEST 
FLOAT A O THROUGH ALL MAIN MEMORY LOCATIONS 


LELELELEREEEERERARAAEAREEE TEST 10 Se RRRRERRHRAARERARA ALLEL ERE 
IOP MAIN MEMORY DUAL ADDRESSING 

LOAD EACH MEMORY LOCATION WITH ITS OWN ADDRESS 

READ BACK EACH LOCATION TO VERIFY CORRECT ADDRESSING 


SHLRAERERRAEERESRERRRREEEE TEST 1] SR RRRRRRRARARR EAE REREEREEES 


IOP_MAR TEST 
PERF: DUAL ADDRESSING TEST 
USING MAR AUTO-INC FEATURE 


LERERERESEREREREREREAEREES TEST 12 SERRRRRRERREE EA AE ERE ALARA RE 
IOP (CRAM) oor BITS TEST 
LOAD MAR WITH A O INC MAR UNTIL IT OVERFLOWS (2000 TIMES) 
VERIFY THAT IBUS* 10 BITS IS SET ONLY WHEN MAR BIT 8 IS A ONE 
AND THAT IBUS* 10 BIT6 IS SET ON MAR OVERFLOW(2000) 


0015 


DZ2DMH LST 


2083 


2066 


2132 


2189 


e242 


2298 


2354 


2410 


2466 


eSe2 


2578 


DECDOC VER 00.94 


ee ne TEST 13 RHRRRRREREEEAEEREEEEEEEEEES 
THIS TEST READS EACH ROM LOCATION AND COMPARES 


IT TO_A SOFTWARE DUPLICATE OF THE CROM. THIS TEST 
ALSO TESTS THE JUMP(I) MICRO-PROCESSOR INSTRUCTION. 


JERE TEST 14 S630 6 SESE SEE ae EEE 
CROM TEST OF JUMP(I) NEVER MICRO-PROCESSOR INSTRUCTION. 


PERF: THE JUMP INSTRUCTION 
VERIFY THAT THE JUMP DID NOT OCCUR BY READING 
THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


LELELLAAAARRARERRRRRRRERES TEST 15 RRR RRRRRRR ARAL R REELS LES 
CROM rt OF gt ALWAYS MICRO-PROCESSOR INSTRUCTION. 


PERFORM THE J' INSTRUCTION 
VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


ELLLAAARARERERAERERERESEEEESE TEST 16 Se eeRRRRRARAR RRR ARE RLLA EE 
CROM TEST OF JUMP(I) ON THe BIT SET 1 aaa INSTRUCTION. 
SET THE C BIT, PERFORM T . iuP [eT TRON 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


LHKLAKKARALARLRLHERERAKSREKER TEST 17 RRR RRRRERSRL AREER ARAL E KE 
CROM TEST OF UMP) ON Z BIT SET MICRO-PROCESSOR INSTRUCTION. 
SET THE Z BIT, PERFORM THE ON 

VERIFY THE The B BY READING THE CONTENTS OF THE NEW ROM PC 


LELLLLAAAREERRRRAREREERLERE TEST OD SRRRRRRRRAAARE RE RAALE REELS 
CROM TEST OF JUMP(I) ON BRO SET MICRO-PROCESSOR INSTRUCTION. 


SET THE BRO BIT, PERFORM THe JUMP {iS TRUS TION 

VERIFY THE JUMP’BY READING THE CONTENTS OF THE NEW ROM PC 
REALL EEEEERERERERERELES TEST C1] SHHERRRRREREREREERERELELELE 
CROM_ TEST OF JUMP(I) ON BR1 SET MICRO-PROCESSOR INSTRUCTION. 


SET THE BRI BIT, PERFORM THE JUMP INSTRUCTION 
VERIFY THE JUMP’BY READING THE CONTENTS OF THE NEW ROM PC 


LELERRRERELEERERSERERERESE TEST C2 SRRRRRRRRRRERAA LARA SHER ERER 
CROM TEST OF alt I) ON BRY SET MICRO-PROCESSOR INSTRUCTION. 
SET THE BRY BIT, PERFORM THE JUMP INSTRUCTION 

VERIFY THE JUMP’ BY READING THe CONTENTS OF THE NEW ROM PC 


SELLLAAEREREAAAESERLELAEEE TEST OCS RERRRREERARRRE ELLE SR RELLL EER 
CROM TEST OF JUMP(I) ON BR7 SET MICRO- mo INSTRUCTION. 
SET THE BR7 BIT, PERFORM THE JUMP INSTRUCTION 

VERIFY THE JUMP’BY READING THE CONTENTS OF THE NEW ROM PC 


SAE AEE EER REEEE TEST OM SEE EE EEE EEE ES 
CROM TEST OF JUMP(I) ON C BIT SET MICRO-PROCESSOR INSTRUCTION. 
CLEAR THE C BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THAT "JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE}. 


14-DEC-76 16:37 PAGE 03 PAGE: 


0016 


DZOMH LST 


2635 


2692 


2749 


2806 


2863 


2920 


2926 


2382 


E0e 
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peoesupesenseuenceasenenss TEST 5s JHE EEE ie ttt 
CROM TEST OF JUMP(I) ON Z es TRITON. INSTRUCTION. 


EREKRREE RHE RREREEEEHEHREER TEST 26 Ee reeee eee ae 


a eae es rl 


HE CONTENTS OF THE NEW ROM PC(IT Ai: INCREMENT BY ONE). 


REREREEEERARARERERERERREEE TEST O7 RRR REREHRERE EEE ERLE EELES 
CROM TEST OF ae" I) ON BR1_SET MICRO-PROCESSOR INSTRUCTION. 
CLEAR THE BR1 PERFORM THE JUMP INSTRUCTION, 

VERIFY THAT THE Tone. DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


LEKHKERERARRAEREREREERERES TEST a Peete ttt t tet tstttttisii ite! 
CROM TEST OF ie ON BRY SET MICRO-PROCESSOR INSTRUCTION. 
CLEAR THE BRY BIT RFORM THE JUMP INSTRUCTION, 

VERIFY THAT THE Tune" DID NOT OCCUR BY READ 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


RELGEEEEEEEEREREEREREREELE TEST QO] SeeeRRRERERAAAERE LEAL LEAL 
CROM TEST OF JUMP(I) ON BR7 SET MICRO-PROCESSOR INSTRUCTION. 
CLEAR Um A BIT, PERFORM THE JUMP INSTRUCTION, 


pponsupeueogsyeuccuseusurs ice i sroceesiemapecoatel 
RAM TEST OF JUMP ah MICRO-PROCESSOR INSTRUCTION. 


THE BR DATA IS MOVED TO PORTY. IF THIS DATA IS CORRECT 
THE CRAM PC IS CORRECT. IF THE CRAM PC IS NOT RIGHT, 
THEN PORT4Y CONTAINS A 37 


pap aercnaye TES 33 2 0-3-2 S-JE JE SE  E a EEE 
gan ony ws a “Tate MICRO-PROCESSOR INSTRUCTION. 


whe #2 TEE WP iy hee Tict in Tonos tee 


T oh MIT are TS MOVED 0 ® ary. Wie THIS, ATA I RECT. 
THE Sine a saucer E SFL F THE JUMP WA Tac aae gosh 
THEN ORTS ce CON Arn "A 37 


0017 


oe gee ee eee cone ene capae- - « 


DZDMH LST 


3041 


3103 


3165 


3227 


3289 


FOe2 
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SEE TEST OY Sess Sea EEE EEE EEE 
CRAM_TEST r ies (1) ON C BIT SET 1p a ea INSTRUCTION. 


RFORM THE JUMP INSTRUCTI 
VER Orla DID OCCUR BY CLOCKING THE VIASRUCTION 
IN re Toe TON IT IS AT. THIS INSTRUCTION LOADS THE 
BR WITH THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 
THE BR DATA IS MOVED TO PORTY. IF THIS DATA IS CORRECT, 
THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
THEN PORT4 WILL CONTAIN'A 37 


RAKHKARALHKALAKARSRERESSH TEST 9S RE RRRRALRA ALAR HERA AK AA H ESS 
CRAM TEST ON Z BIT SET MICRO-PROCESSOR INSTRUCTION. 
SET THE 2 BIT, PERFORM THE JUMP INSTRUCTION 

VERIFY THE JUMP DID OCCUR BY CLOCKING THE TNSRUCT 

IN THE LOCATION IT IS AT. THIS INSTRUCTION L SRDS 

BR WITH THE L B HE CRAM PC. AT THI 

THE BR DATA IS MOVED TO PORTY. IF THIS DATA IS CORRECT, 

THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 

THEN PORT4Y WILL CONTAIN A 37 

HHEARKKLRSALHRARHRKHRKSKKESES TEST QE RRR RR RRR RA EA RAE AR AL ALH AES 
CRAM TE UMP(I) ON BRO SET HICRO-PROCESSOR INSTRUCTION. 


: ON LOADS T 
BR WITH THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 
THE BR DATA IS MOVED TO PORTY. IF THIS DATA IS CORRECT, 
THE JUMP _WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
THEN PORTY WILL CONTAIN’A 37 


LLRERLAAARRERESRRSRERREEEE TEST 37 Skee RRR REAR REREA ARE AEE EES 
CRAM TEST OF JUMP(I) ON BR1 SET Retin INSTRUCTION. 
SET THE BR1 BIT, PERFORM THE JUMP I ON 

VERIFY THE JUMP’DID OCCUR BY CLOCKING THE INSRUCTION 

IN THE LOCATION IT IS AT. THIS INSTRUCTION LOADS THE 

BR WITH THE LOWEST 8 BITS OF THE CRAM Pf. AT THIS POINT 

THE BR DATA IS MOVED TO PORTY. IF THIS DATA IS CORRECT, 

HE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 

THEN PORT4Y WILL CONTAIN A 37 


LELELLEERRRRRARARRRREREEES TEST GQ RR RRRRRRARR EERE RR RAAA ALES ES 
CRAM TEST OF fait 2 ON BRY */ MICRO-PROCESSOR INSTRUCTION. 
T THE BRY BIT RFORM THE NSTRUCTION 


DATA ; 
THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL ° 
THEN PORT4 WILL CONTAIN A 37 


0018 


OZOMH LST 


3351 


3413 


3475 


3537 


3542 


3599 
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REALAARAARERRRRRRREREREEES TEST 4] RRR RRRRRRARE EERE ALLE REES 
coor LF at: ) mn BR7 SET SE EeTTON INSTRUCTION. 


T8B C 
THE BR DATA IS MOVED TO PORTY. IF THIS DATA IS CORRECT, 
THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
THEN PORTY WILL CONTAIN A 37 


LELLAAAAAREREREREAARERERRE TEST YO RHERRRRRRR REE HAARERRELEA EERE 
CRAM TEST OF JUMP(I) a oe! A. aA INSTRUCTION. 


T, PE UMP TRUCTION, 
VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE peer aon 


ON s ION LOADS 
BR WITH THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 
THE BR DATA IS MOVED TO PORT4. IF THIS DATA IS CORRECT 
THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 
THEN PORT4 CONTAINS A 37 


SHAHARRAAREEERERERERERERES TEST YS SRR E RRR EERE EE REE LLE RES 

CRAM TEST OF JUMP(I) ON 2 BIT SET MICRO-PROCESSOR INSTRUCTION. 

CLEAR THE Z BIT, ORM THE JUMP INS ION, 

VERIFY THE JUMP DID NOT BY CLOCKING THE’ INSTRUCTION 

IN THE LOCATION IT IS AT. THIS INSTRUCT i? a THE 

BR WITH THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 

IS MOVED TO PORTY. IF THIS SATA IS CORRECT 
RAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 

THEN PORT4 CONTAINS A 37 


RERERGRERRARRRRESRRRREREES TEST YY Ree R EERE ERE 
CRAM TEST OF JUMP(I) ON BRO SET MICRO-PROCESSOR INSTRUCTION. 
CLEAR THE BRO BIT, PERFORM THE JUMP INSTRUCTION 

RIFY THE JUMP DD NOT OCCUR BY CLOCKING THE INSTRUCTION 
IN THE LOCATION IT IS AT. THIS INSTRUCTION LOADS THE 


The Br WITH ma 18 ROvED B TOP OF THE CRAM PC. AT THIS POINT 
. & 0 agit IF THIS DATA IS CORRECT 
THE CRAM PC IS NOT RIGHT, 


m 
8 
aan 
ap 


HE CRAM PC 
THEN PORTY CONTAINS. ‘ "a! 


REEERESERESSSREREREEEREEEE TEST YS RERRRRRRRRRAERE SESE SESE REESE 
CRAM TEST OF (I) ON BRI SET MICRO-PROCESSOR INSTRUCTION. 
CLEAR THE BR1 BIT, PERFORM i. af INSTRUCTION 

Tate Treat ON bf S sate THs J Ce eact NBy OAD ERSTRUCTION 

Br MIYH THe LOWEST Bei OF Fue CRON PO. AT THES POINT 

THE BR DATA IS MO 5 FO Boera. IF THIS DATA IS CORRECT 

THE CRAM PC IS HOREECT IF THE CRAM PC IS NOT RIGHT, 

THEN PORTH CONTAINS A 37 


0019 


DZOMH 


LST 


3661 


4016 


4065 


4111 


DECDOC VER 00.04 
LELRLLAALAAAAREREREREREEEE TEST YG SeRRRRRRR EERE EERE ELLE LEE S 


or ST OF. JUMP CI hat [BRS SET MICROPROCESSOR INSTRUCTION. 
fe Taft me is, ar. zfs INSTRUC LION TisTaycrtoN 


at THIS POINT 
Al Gee ED F 2 at ATS. BA A IS CORRECT 
Re Sine |e Pee. te THe Chan Pe $s Not RIGHT, 
PORTY CONTAINS A 37 
BERGER TEST 47 SRR REE E ERA A AREAL EEE REESE 

T OF JUMP(I) ON BR7 SET MICRO-PROCESSOR INSTRUCTION. 


RUCTION 
VERIFY NO BY St ti th THE INSTRUCTION 
IN ie ae a 1S AT FHS I TION L OADS THE 
BR WITH THE BITS OF THE THIS POINT 
THE BRD BR DATA Bf T. 4. Ef ais "bare S CORRECT 
se Oe RRECT, I RIGHT, 
THEN PORTY 
A 7” RSPLRPLLERAKS RRL ELERELESERLE 
FREE RUNNI 


NG FLAG 
Tee TA RIFY fue RECET DATA 
IF teteae tot IS ON Lin “Unt het be IS SET. 
ALL FOLLOW RF ORMED 
ONLY ON ’S iy INE UNITS. IF yOu AUISH NTO PRE RFORN 
THESE ON A KMC_(NORMALLY THE FREE RUNNING TESTS 
WILL FAIL ON A _KMC MUST 


TIMER IS TOO Fast) I THEN YOU 
MANUALLY SET BITO OF STAT3 IN THE STATUS MAP 


SRERRRREE TEST S] Se eeeeRRRREREREREEERA EE EEEE 


OVERUN TES 
IN an RUNNING MODE SEND MESSAGE WITH NO RECEIVE 
BUFFER AVAILABLE, VERIFY THAT AN OVERRUN ERROR OCCURS 


REREEERRARRRRERREREHE TEST SO ee eeke eee eee eRRR EERE ELLE LE 


LOsr Tete TE Tee moe 
SEND_A MESSAGE LONGER THAN THE RECEIVE 
BUFFER, VERIFY THATS A LOST DATA ERROR OCCURS. 


HELGE ReEEEEEHE TEST RLARALEARAAL SALA LAL SRLARE LEAS 


T NON-EXISTENT MEMORY 
IN RUNNING MODE, LOAD A SMIT BA THAT WILL TIME OUT 
VERIFY THAT A NONCEXISTENT MEMORY ERROR OCCURS 


a or grew mee eo rn T aT SY RRRRRHREE GEESE ERR EARERERE EE 


RECEIVE NON-EXISTENT 
IN FREE I A RECEIVE BA THAT WILL TIME OUT 
VERIFY THAT A NON-EXISTENT MEMORY ERROR OCCURS 
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nr 


- 


DZOMH LST 


4160 


4204 


4248 


4288 


10e 


een pe es TEST SS H¥HERHHHE SERRE HARKER ER EEES 


PROCESSOR ERROR TEST 
IN FREE RUNNING MODE, DO A BASE TRANSFER REQUEST AFTER A 
BASE HAS BEEN 


DECDOC VER 00.04 


SET UP; VERIFY THAT A PROCESSOR ERROR OCCURS. 
ae ge os aaa TEST SG RHMHHERRHRAHE REE ARE EE EEEE ES 


PROCESSOR ERROR T 
IN FREE RUNNING MODE DO A RQI WITH AN ILLEGAL 10 CODE 
VERIFY THAT A PROCESSOR ERROR OCCURS 


ERELLAAALPRERERREERELRREREE TEST S7 Peek eee RRR ERR AEE LE LES 
HALF DUPLEX TEST 

IN vr RUNNING MODE, SET HALF DUPLEX AND L U LOOP 

SEND A MESSAGE AND VERIFY THAT THERE ARE NO bones 


LEHRAAAAARARRREREAARARREREE TEST 60 HERRERA E REEL RA EE ELE LE ES 
TA T RCISER) 


FREE RUNNING DATA TEST ree DRIVEN EXE 
gt Mu eer rhire Ly eo Hex Y nn A tty are a ae 


Ss Bs GENER oh reeset COATS, Race FON 1. io, nef 80 


14-DEC-76 16:37 


BINARY COUNT PATTERN. THE RESUME FUNCTION IS CHECKED IN THIS TEST 
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WMO WONIM WN £2 OTUs O00 NOU Wore 


TUTUTUTU 0 bb 0 be 


SSOVERRZORES Se Vee 


Bale -76 16:32 
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J0e2 


PAGE 2 
INTRODUCTION TO DMC11 DIAGNOSCTIC 


; #MAT EC-11-DZDMH-A_ _DMC11 LOCAL _CROM, JUMP, AND FREE RUNNING TESTS 
— IGHT 1976, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


3 START NS pe PROCEDURE 


ae Ops, OED, 


;SWO7=1 USE CURRENT Onc11 PARAMETERS 
;SWOO=1 INPUT NEW DMC11 PARAMETERS 


PAGE : 


0022 


; START 
PRS WILL TYPE we DMC11 LOCAL CROM, JUMP, AND FREE RUNNIN 


;PROGRAM WILL TYPE STATUS MAP 
;PROGRAM WILL TYPE “R” TO INDICATE THAT TESTING HAS STARTED 
:AT ee Pe OF A Peery ~~ WILL TYPE PASS COMPLETE MESSAGE 


sAND_T Renu UME TES 
CBSE OUEN NT RESTAR : He, NOT TYPE PROGRAM TITLE 


;SWITCH REGISTER OPTIONS 


$W15=100000 ;=1,HALT ON ERROR 
SW14=40000 3=1,LOOP ON CURRENT TEST 
SW13=20000 ;=1, INHIBIT ERROR TYPEOUT 
SWle=10000 32=1,DE 5 TYPEQUT RELL ON ERROR. 
SW11=4000 ;=1, INHIBIT ITERATI 
SwW10=2000 3;=1,ESCAPE TO NEXT test mn ERROR 
SWO9=1000 3=1,LOOP WITH CURRENT 
SwO8=400 ;=1,LO0P ON ERROR 
SWO7=200 3=1,USE CURRENT DMC11 PARAMETERS, =0,AUTOSIZE DMCi! 
amen ie s=1, HALT BEFORE CLOCKING MICRO-PROCESSOR INSTRUCTION 
SWO4= 
=10 ;RESELECT OMC11°S TO BE TESTED ‘ACTIVE) 
SwOe= LOCK ON TEST SELEC 
SWOl= :RESTART PROGRAM AT SELECTED TEST 
SwO0=1 tINPUT DMC11 PARAMETERS 


DZDOMH = MACY! 
OZOMH.P11 


AYIAAITEVERLELLS OGM SESE | 


87 


SRRLSRHASSS 


27(1006) 


S§-DEC-75 1 


000009 
000001 
000002 
000003 
000004 
000005 
000006 
000007 


177776 
001200 
005746 
005726 
010046 
012600 
024646 
022626 


—” 16:32_ PAGE 3 
4:59 GENERAL DEFINATIONS AND EQUIVALENCIES 


KOe 


;REGISTER DEFINITIONS 


RO=%0 ;GENERAL REGISTER 

R1=%1 ee REGISTER 

Re=%2 ;GENERAL REGISTER 

R3=%3 ; RAL Reet aren 

R4=%4 ; GISTER 

RS=%5 ;GENERAL REGISTER 

SP=%6 “PROCESSOR STACK POINTER 
PC=%7 :PROGRAM COUNTER 
;LOCATION EQUIVALENCIES 

PS=177776 ;PROCESSOR STATUS WORD 
STACK=1200 :START OF PROCESSOR STACK 


; INSTRUCTION DEFINITIONS 


PUSH1SP=S746 ;DECREMENT PROCESSOR STACK 1 WORD 
POP1SP=S726 INCREMENT PROCESSOR STACK 1 WORD 
PUSHRO=10046 ; SAVE ON STACK 


POPRO=12600 ;RESTORE RO FROM sone 


PUSHESP=24646 NT ST 
POPeSP=22626 ; INCREMENT STACK TWICE 
-EQUIV EMT,HLT ;BASIC DEFINITION OF ERROR CALL 


;BIT DEFINITIONS 


Bias 


E 


PAGE: 


0023 


OZOMH MACYLI 27(1006) yitgdeC-76 16:32 PAGE 4 PAGE: 
DZDMH.Pil  09-DEC-76 14:59 TRAPCATCHER FOR UNEXPECTED INTERUPTS 

3 SS RARER AEE REAR RRA RERE ERA RE GARR R ALARA AAA LALLA RRA RARE LA ALAL ELE ES 

101 : ; TRAPCATCAER FOR ILLEGAL INTERRUPTS 

ice ; THe ee “TRAP ars R" I PLACED 

10 tA EN ss OT DRESS 6. 

104 *PC+2 HALT”. 

is : o RERREERRAAERARERAGRRA RRA RARE A ERE ARERR AERA AK RA ARAL LAA RAAAAAA AEE KLE 

108 ooc000 5 

109 STANDARD INTERRUPT VECTORS 

111 

112 

113 ;PEAIL : POWER FAIL pe 

115 | ~HLT : ROLER 

i? ' STRPSR isenvice 6 Me DISPATCH SERVICE 

118 a9 ORNS on 340 SENG Fe HOLE 

120 a c sSAVE FOR ACT-11 OR XXDP 

lel : RETURN RODRESS IF UNDER ACT-11 OR XXDP 

122 0 :SAVE FOR ACT-1 XXDP 

123 wi SENDAD FOR USE WITH ACTH OR XXDP 

ies % 0 sACT-11 PROGRAM CHARACTERISTICS 

15g I PREG T ISPLAY TER 

135 Qireer ROE THARE SUETCH REGISTER 

131 000200 .=200 

132 po00200 000137 oo2n02 IMP START :GO TO START OF PROGRAM 

134 

te 001900 nich 040515 047111 ATTIEe: .ASCII <377>«12>/MAINDEC-11-DZDMH-A/<377> 

(2) 001025 104 O41515 030461 “ASCIZ /DMC11 LOCAL CROM, JUMP, AND FREE RUNNING TESTS/<377> 

132 001200 21200 

138 s INDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY 

141 

14 7 Y: 7 

14s BRIERE 157838 taal Cees 





LOe2 


ooe4 


MOe2 


DZDMH MACYLI1 27(1006) A all 76 16:32 PAGE S PAGE: O025 
DZDMH.P11 O9-DEC-75 14:59 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 
145 INDIRECT POINTERS 10 TELETYPE, VECTORS AO REGISTERS 
147 
i BB ebe 177s TeeaR: 155288 HTELETYEE KEYBSRRR SRYAPBLBERTSTER 
150 TPCSR: 177564 LEPRINTER CONTROL REGISTER 
13} isis rere TPDBR: 177566 t TELEPRINTER DATA BUFFER 
; PROGRAM CONTROL PARAMETERS 
jPROGRRN CONTROL. PARAMETERS 
REYWRN: B i RERRESG OF REXT OE toe ONE ES cuTED 
beer: 9 ARSE FR Bhs Yaa CURRENT TEST WILL BE 
LPCNT: 0 ITEREATIONS C 
: IN: f Re oF peet.aN ‘Prockees 
ERRCNT: O NUMBER OF ERRORS 
STERR: 0 ‘Pt '¥ LAST ERROR CALL 








166 sPROGRAM VARIAGLES 

168 

138 Boisae arate 8 ‘BH EFBtis WoRD SToRnceE 
171 OOle42 CLKX: 0 

173 DOLSHE TERPL: 0 TEMPORARY STORAGE 

173 BbtSep TEMP2: 0 t TEMPORARY STORA 
eS tet eeu’ 8 

138 001256 TEMPS: OQ : TEMPORARY STORAGE 

178 001 SAVRO: 0 RO STORAGE 

179 001ebe SAVRL: 0 sR STORAGE 

ie ee ee pt 

183 001 SAVRS: 5 Re STORAGE 

188 001274 SAVSP: 0 : STACK POINTER By 

186 651308 ZERO: 5 sPROGRAN C we 
188 901304 | DOSeDR MERLIN: © ;HIGHEST LOCATION FOR NPR'S 
189 O01 305 900001 DaACTV: -BLKH ;DMC11°S SELECTED ACTIVE. 
191 001312 Sp000t ONaCT: : KW I Suet eet obvices 
192 001314 000001 SAVNUM: .BLKW 1 WORKABLE NUMBER 

193 001316 000000 ‘te ‘POINTER TO RUNNING DEVICE. 
195 001320 001472 CREAM: DM.MAP-6 ; TABLE POINTER. 

196 001322 001676 MILK: CNT. MAP=4 TABLE POINTER 


OZDMH 
OZDMH.P11 


MACY11 27(1006) 


O9-DEC-76 1 


001330 


000 
008 


104400 


—™ 16: 3. nomen 6 
4:59 OGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


”) 


N02 


;PROGRAM CONTROL FLAGS 


ERRFLG: .BYTE 
LOKFLG: .BYTE 
QV.FLG: .BYTE 
- EVEN 


-_——_— - ce ie a ne ee a ee ee ee 


;PROGRAM INITIALIZATION FLAG 
sERROR OCC 


L 
"LOCK ON CURRENT TEST FLAG 
spur VERIFY FLAG. 


FIRST PASS OF EACH DMC11 ITERATIONS WILL BE 


;DEFINITIONS FOR TRAP SUBROUTINE CALLS 
POINTERS TO SUBROUTINES CAN BE FOUND 
IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 


5 RRRRRRRER EERE RRR E EERE ERE ERE RRR RA EEL ERE REARS REAR ERE E REE LE LE ES 


SCOP1=TRAB# 
TYPE=TRAP+2 
INSTR=TRAP+ 
INSTER=TRAP + 
PARAM=TRAP+ 
SAVOS=TRAP+6 
RESOS=T 

. RE 
CONVRT=TRAP+1 
CNVRT=TRA +11 
MSTCLR=TRAP+ 12 

MST 
DELAY=TRAP+13 

. DELAY 
ROMCLK=TRAP+14 


DATACLK=TRAPS 5 
LK 


TINER=TRAPS| att 


;CALL TO SCOPE LOOP AND ITERATION HANDLER 
;CALL TO LOOP ON CURRENT DATA HANDLER 

;CALL TO TELETYPE OUTPUT ROUTINE 

;CALL TO ASCII STRING INPUT ROUTINE 

;CALL TO INPUT ERROR HANDLER 

;CALL TO NUMERICAL DATA INPUT ROUTINE 

;CALL TO REGISTER SAVE ROUTINE 

;CALL TO REGISTER RESTORE ROUTINE 

;CALL TO DATA OUTPUT ROUTINE 

;CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
;CALL TO ISUE A MASTER CLEAR 

;CALL TO DELAY 

;CALL TO CLOCK ROM ONCE 

;CALL TO CLK DATA 

;CALL TO DELAY A CLOCK TICK 


WTItiiitiiiiiitiiiiititiiititiiiiitiittttittiitiiieireticerrcr©s, 


——— re en me ee re ee 


ee. ee ee ee ee 


2 ene ee. eee ee —- — 
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248 
249 
250 
251 
2S2 1366 000000 
2S3 1370 000000 
eS4 001372 000000 
ess 
256 
es7 
2s8 
2539 001374 000000 
260 001376 000000 
261 001400 000000 
ebe 001402 000000 
263 001404 000000 
264 001406 000000 
26S 001410 000000 
e66 O0l4le 000000 
267 001414 000000 
268 
269 
270 
271 
e72 001416 o00000 
273 001460 
274 
275 
276 
277 
278 001500 
e739 001500 
e80 001500 000001 
e81 00150e 000001 
e8e 001504 000001 
see 001506 000001 
e8S 001510 000001 
e86 O00151e 000001 
287 001514 000001 
co 001516 000001 
e390 001520 000001 
sh Bie a 
235 001S5e6 000001 
aes 
5a BoLe34 000001 
a4 001536 000001 
300 001540 000001 
301 001542 900001 
202 001544 000001 
303 001546 000001 


——- 76 16:32 PAGE 7 


PAGE : 


PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


;DMC11 CONTROL INDICATORS FOR CURRENT DMC11 UNDER TEST 


STATI: 
STATe: 
STAT3: 


0 
0 


;DMC11 VECTOR AND REGISTER INDIRECT POINTERS 


DMCRO1: . 
DMS101: . 
DMS2 


OMS304: ; 


ooo 


O0O0000 


— he — ep pp Pp > 


{POINTER 10 BHCLL RECEIVER INTENRUPt SERVICE ps 


R INTERRUPT VECTOR 
i POINTER BCL TRANSMITTER INTERRUPT SERVICE PS 
; POINTER 10 DELI CONTROL STATUS REGISTER 
;POINTER TO DMC11 Son TRO STATUS REGISTER HIGH BYTE. 
;POINTER DMC11 CONTOL OUT REGISTER 
;POINTER TO OMC11 PORT REGISTER(SEL 4) 
:POINTER TO DMC11 PORT REGISTER(SEL 6) 


i CONTROL STATUS ppt): FOR DMC11 NUMBER 00 


ivexoon FOR OMC1 
Te hte 2 en OMC11 NUMBER 00 
BRD STATUS WO 


; CONTROL STATUS REGISTER FOR DMC11 NUMBER 01 
; VECTOR FOR DMC11 NUMBER 01 

;DDCMP _LINE# FOR DMC11 NUMBER C1 

:3RO STATUS WORD 


+CONTRR. STATUS te FOR DMC11 NUMBER Se 


;VECT OR DMC11 
;DOCMP_L Lee RD FOR tonelI NUMBER 02 
;3RD STA 


3 CONTROL STATUS REGISTER FOR DMC11 NUMBER 03 
;VECTOR FOR DMC11 

;DDCMP LINES FOR. DMC11 NUMBER 03 

:3RD STATUS WORD 


;CONTROL STATUS REGISTER A DMC11 NUMBER 04 
VECTOR FOR DMC11 NUMB 

;DOCHE Lee FOR DMC11 NUMBER 04 

;3RD STATUS WORD 


0027 


CO3 
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304 
305 001550 000001 DMCROS: .BLKW 1 s CONTROL STATUS REGISTER FOR DMC11 NUMBER OS 
306 00155e 000001 DMS10S: .BLKW 1 ; VECTOR FOR DMC11 OS 
307 001554 000001 DMS20S: .BLKW 1 ;DDCMP_LINE® FOR DMC11 NUMBER OS 
ae 001SS&6 000001 DMS30S: .BLKW 1 ; 3RD STAT US WORD 
310 001560 000001 DMCRO6: .BLKW 1 ; CONTROL STATUS REGISTER FOR DMC11 NUMBER 06 
311 001562 000001 pel BLKW ol ;VECTOR FOR DMC11 NUMBER 06 
3i2 001564 000001 206: .BLKW 1 ;DOCMP_LINES FOR DMCi1 NUMBER 06 
ata 001566 000001 DMS306: .BLKW 1 :3RD STATUS WORD 
315 001570 000001 DMCRO7?: .BLKW 1 ; CONTROL siAne REGISTER FOR DMC11 NUMBER 07 
316 001572 000001 DMS107: .BLKW 1 ;VECTOR FOR DMC11 
317 001574 000001 DMS207: .BLKW 1 ;DDCMP_LINE® FOR DMC11 NUMBER 07 
318 001576 000001 DMS307: .BLKW 1 ;3RD STATUS WORD 
320 001600 000001 DMCRiO: .BLKW 1 ;CONTROL STATUS REGISTER FOR OMC1i NUMBER 10 
3e1 001602 000001 DMS110: .BLKW 1 VECTOR FOR DMC11 NUMBE 
3ee 001604 000001 DOMS210: .BLKW 1 ;DDCMP_LINE® FOR DMC11 NUMBER 10 
353 001606 000001 DMS310: .BLKW 1 ;3RD STATUS WORD 
3eS 901610 000001 DMCRI1: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER i1 
326 O0l6le 000001 DMS111: .BLKW 1 VECTOR FOR DMC11 NUMBE 
327 001614 000001 DMS2l1: .BLKW 1 ;DDCMP_LINE® FOR DMC11 NUMBER 11 
a58 001616 000001 DMS311: .BLKW 1 :3RD STATUS WORD 
330 001620 000001 DMCRi2: .BLKW 1 ; CONTROL STATUS REGISTER FOR DMC11 NUMBER le 
331 001622 000001 OMSile: .BLKW 1 CTOR FOR DMC11 NUMBER 1 
33e 001624 000001 DMSele: .BLKW 1 t DOCHP LINE® FOR DMC11 NUMBER 12 
oy 0016e6 000001 DMS3le: .BLKW 1 :3RD STATUS WORD 
335 001630 000001 penta ‘3 1 ;CONTROL STATUS recites FOR DMC11 NUMBER 13 
336 O00163e 000001 DMS113: .BLKW 1 VECTOR FOR DMC11 13 
337 001634 000001 DMS213: .BLKW 1 ;DOCMP_LINE® FOR DMC11 NUMBER 13 
Be 1636 000001 DMS313: .BLKW 1 ; 3RD STATUS WORD 
340 640 000001 DOMCR14: .BLKW 1 ;CONTROL STATUS REGISTER + DMCi1 NUMBER 14 
341 001642 000001 DOMS114: .BLKW 1 ;VECTOR FOR DMC11 NUMBER 1 
s4e 644 000001 DMS2i4: .BLKW 1 ;DDCMP_LINE® FOR OMC11 NUMBER 14 
a 001646 000001 DMS314: .BLKW 1 ;3RD STATUS WORD 
24s 1650 000001 DMCRIS: .BLKW 1 CONTR a ATUS REGISTER FOR OMC1i NUMBER 15 
S46 1652 000001 DMS115: .BLKW 1 VECTOR FOR DMC11 NUMBER 15 
347 001654 000001 DMS215: .BLKW 1 pre Lohee FOR DMC11 NUMBER 15 
sig 001656 000001 DMS315: .BLKW 1 WORD 
350 001660 000001 DMCR16: .BLKW 1 Core gran REGISTER FOR DMC11 NUMBER 16 
351 001 000001 DMS116: .BLKW 1 ;VECTOR F 2 oe NUMBER 16 
3Se 001664 000001 DMS2l6: .BLKW 1 ; DOCMP LINE FOR FOR OMC11 NUMBER 16 
2a 001 000001 DMS316: .BLKW 1 :3RD STATUS WORD 
355 O016 000001 DMCR17: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 17 
356 00167e 000001 DMS117: .BLKW 1 VECTOR FOR DMC11 NUMBER 17 
357 0016 000001 DMS217: .BLKW 1 ; DOCMP Line FOR DMC11 NUMBER 17 
258 001676 000001 DMS317: .BLKW 1 ;3RD STATUS WORD 


DO3 
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360 961700 occd00 DOM.END: 000000 


DZDMH 


MACY11 27(1006) 
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361 
3 
364 
3Ee Boi 708 000000 
ce B74 000000 
369 001706 000000 
a 001710 000000 
372 001712 000000 
a4 001714 900000 
375 001716 000000 
a] 001720 000000 
378 001722 
3739 001724 
380 
381 001726 
382 001730 
383 m7 
Ses G01734 
3370017 

UU 
382 00188 
350 1742 
UU 

34) 061748 
232 
393 001746 
sa 001750 000000 
335 001752 900000 
220 001754 000000 
3399 001756 000000 
: ‘ 001760 000000 
4 ppt be 00 
ae 1764 000 
40S 001766 000000 
mt) 001770 000000 
408 001772 000000 
mi 001774 900000 
411 901776 O00000C 
4ie 002009 d0000C 


“a” -76 16:32 PAGE 1 
4:59 


E03 


PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


;0MC11 PASS COUNT AND ERROR COUNT TABLE 


CNT. MAP: 
PACTOO: 
ERCTOO: 


PACTOL: 
ERCTOL: 


PACTOe: 
ERCTO2: 


PACTO3: 
ERCTO3: 


PACTOY: 
ERCTO4: 


PACTOS: 
ERCTOS: 


PACTOB: 
ERCTOB: 


PACTO?: 
PRGTBS: 
PACT1O: 
PRET +B: 
PACT11: 
ERCTLI: 
PACTle: 
ERCTle: 
PACT13: 
ERCT13: 
PACT14: 
ERCT14: 


PACTIS: 
ERCTIS: 


PACTI1E: 
ERCT16: 


PACT17: 
ERCT17: 


2° C80 F280 2D 280 2D GO CO BO CO BDO FO FO CO OO oO 


iERRGR COUNT” 


;PASS COUNT FOR DMC11 NUMBER 00 
:ERROR COUNT FOR DMC11 NUMBER OO 


;PASS COUNT FOR DMC11 NUMBER O1 
ERROR COUNT FOR DMC11 NUMBER 01 


;PASS COUNT FOR DMC11 NUMBER Oe 
ERROR COUNT FOR DMC11 NUMBER O2 


;PASS COUNT FOR DMC11 NUMBER 03 
ERROR COUNT FOR DMC11 NUMBER 03 


;PASS COUNT FOR DMC11 NUMBER O04 
:ERROR COUNT FOR DMC11 NUMBER 04 


;PASS COUNT FOR DMC11 NUMBER OS 
sERROR COUNT FOR DMC11 NUMBER OS 


;PASS COUNT FOR DMC11 NUMBER O06 
;ERROR COUNT FOR DMC11 NUMBER 06 


ERROR COUNT FOR DCL NURBER C7 
BR DRE L NLR ER’ fo 


;PASS COUNT FOR DMC11 NUMBER 11 
ERROR COUNT FOR DMC11 NUMBER 11 


;PASS COUNT FOR DMC11 NUMBER le 
ERROR COUNT FOR OMC11 NUMBER 12 


sa COUNT PGR DNL NUMBER 3 


ERROR COUNT FORD Ret NUMBER’ 1 14 
;PASS COUNT FOR DMC11 NUMBER 15 
ERROR COUNT FOR DMC11 NUMBER 15 


;PASS COUNT FOR DMC11 NUMBER 16 
ERROR COUNT FOR DMC11 NUMBER 16 


;PASS COUNT FOR DMC11 NUMBER i7 
ERROR COUNT FOR OMCi1 NUMBER 17 


PAGE: 


0022 


FOS 
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414 

41S 

416 

417 

419 

418 


FORMAT OF STATUS TABLE 


iS 14 13 le 11 10 OS O8 O7 0&8 OS OY O3 Oe O1 0 


CSR 


tafatatetaftatalds ee. 3.8 .%,8,. 9 ef STATI 
ee Be a Pe oe ee I 


I I I 
i * BoM ». 28.8.8 : ee eS ee * # ; STATe 


BE SEER ESE TE SEHR 
im te: Je) coe 2 oe ee Se Ger oer EF STAT3 
-a- 2°%@: | fel Me be Ee ee Be Se Be oot Se 


CSR: CONTAINS DMC11 CSR ADDRESS 


STATI: $ 00-08 RO-PROCES vero 9: 
5=1 a OOXSEEAS (ie 

MICRO ESSOR Has CRON 

7299 TURNAROUNO CONNECTOR IS ON 
CONNECTOR 


NO 
it UNIT IS AN M8201 


NO LINE UNIT 
~11 IS DMC11 BR PRIORITY LEVEL 


STATe: LOW gus, SWITCH PAC#1 (DDCMP LINE NUMBER?) 
HIGH BYTE IS SWITCH PAC#2 (BM873 BOOT ADD) 


STAT3: BITO=1 DO FREE RUNNING TESTS ON KMC 
(MUST BE SET TO A ONE MANUALLY [PROGRAMS G AND H ONLY]) 


BIT 
BIT1 
BIT1 
BIT! 
BIT14= 
BIT1 
BIT1 
BIT1 
BITS 


en 


DZOMH 
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DOZOMH.Pi1 O9-DEC-75 1 
470 
47 
47 
473 
474 
475 
476 
477 
478 002002 012737 
479 002010 012706 
Mo 002014 Tp 4 
Ss ets hae 
483 002034 105037 
484 002040 1 
48S 002044 012737 
486 O020S2 012737 
487 002060 012737 
488 002066 012700 
489 O00207e 
490 002074 O22700 
491 002100 001374 
492 O00e10e 005037 
493 092106 012737 
wee 002114 012737 
Re dpa Thea 
a is ee 
fs ee 
ee 
S03 002164 000407 
S04 002166 
50S O00e170 012737 
506 002176 012737 
507 O0e2e04 012637 
S08 002210 012637 
At} 002214 105737 
sf Ress Bes 
ots 001402 
Ree ioe 
tt 002242 Baeoes 
ee 
zi8 noSee8 G3737 
S20 4 101 
ot ie lee 

3 737 

5 es 
SeS 002306 104402 


—" -76 16:32 PAGE 
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177776 


000024 
001314 


001236 


00123€ 


le 
PROGRAM INITIALIZATION AND START UP. 


. START: 


238: 


6$: 


7$: 


20S: 


PAGE: 

: PROGRAM_INIT ATION 

Cag 

uP POLE Par vECTO 

‘CLEA PROGRAM CONTROL PR acs AND COUNTS 

: TYPE Re MESSAGE 

MOV #340, P + OOK 0 QUT INTERRUPTS 

MOV aero SP STACK 

mY GH SAGES uReER oF IEEL I) system, 
CLR eet HELERR SORT TY TYPEOUT FLAG 

CLRB —s ERRFLG *CLEAR ERROR FLAG 

CLRB = QV. FLG *ZERO QUICK VERIFY FLAG 

MOV #OM MAP-10, CREAM; GET MAP POINTER. 

MOV #CNT.MAP-4’>MILK GET PASS COUNT MAP POINTER 

MOV #B1T1S RUN ‘POINT POINTER TO FIRST DEVICE. 
MOV aCNT MAP, R ;PASS COUNT POINTER TO RO 

CLR (RO)+ TABLE 

CMP sCNT. MAP+100,RO : DONE YET? 

BNE 23$ *KEEP GOING 

CLR RR i CLEAR. LAST ERROR POINTER 

MOV #1, TSTNO sgeT UP FOR TEST 1 

MOV #. START, RETURN 5 T UP FOR POWER FAIL BEFORE 

TESTING STARTS 

MOV 386, -(SP) ; SAVE CURRENT VECTORS 

MOV ae4,-(SP) 

MOV eS, as ‘SET uP FOR TIMEOUT 

MOV 220, SUR SET SuR_TO HARD SWR ADDRESS 

MOV 417787 ISPLAY :SET DISPLAY TO HARD SWR ADDRESS 
CMP #-1, aSWR :REFEREN NCE TCH REGISTER 
BEQ 6$+2 IF = -1 USE S 

BR 75 IF IT EXISTS AND NOT = a USE HARD SWR 
CMP (SP)+, (SP)+ 5 ADTU STACK 

MOV aSWREG. SWR *POINTER TO SOFT SWR 

MOV nOrsPnec DISPLAY: POINTER 19 SOFT DISPLAY RES 

nov (36) tae jRESTORE VECT 

TSTB (Sr) e HAS INITIALIZATION BEEN PERFORMED 
oF sSnon0, ae42 i Berti? AUTOMATIC MODE, DON'T TYPE IC 
TYPE i TLE TITLE MESS 

Joe PC AKGHIR MEEK POR SOFT Sun 

MOV si, STRTSW ‘STORE § STARTING SWITCHES 

TST :IS IT RUNNING IN AUTO MODE? 
BEQ :BR IF NO 
CLR STRTSW IF YES, CLEAR SWITCHES 
BIT wSUO0, STRTSH : IF =1, QUESTIONS ARE ASKED. 
BNE g :BR IF SWOO=1 

TSTB 4 0=0- STRTSW :BIT7 =F 

p 7g :BR IF 7=0 

S TV ; ARE ANY aio ey CES SELECTED? 

BNE 16$ R IF YE 

TYPE, NOACT ‘NO DEVICES SELECTED. 


GO3 


3032 


HOS 
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iS 0 HALT :STOP T 
258 ppsais SOO oo BR .-2 sDISQUAL TE Fy RONTINUE SWITCH 
S28 O00e316 004737 010252 173: JSR PC, AUTO. SIZE HE AUTO SIZE 
S29 002322 105737 001324 16$:  TSTB  INTFLG eo RSt th ME? 
5390 002326 001410 BEQ 215 ‘BR IF YES 
531 002330 105737 001236 TSTB =—s-s STRTSW -IF USING SAME PARAMETERS DONT TYPE MAP 
532 334 100431 BMI 1$ 
533 336 032737 000006 001236 BIT #B1T1!BIT2, STRTSW: 1S TEST NO. OR LOCK SELECTED 
534 403 BEQ ous TF THEN Ty YPE SI 
535 24 BR 1$ : IF YES D YPE AYE rus 
536 137 001324 21$: COM INIFLG SET FLAG 
537 002354 1oaside 006126 24g: TYPE pXHEAD a YPE ofié AD R 
a e 
23g pps 30 ft BD TSae S$: MOV R4, TEMP! ri in BA 
S40 002370 012437 001250 MOV (R4)+, TEMP2 
Hl oge374 OO1411 é' BEQ 1S. nie are pone, IF ZERO 
24 Bosane piSuas ea MOV (R4)+; TEMPY iaet at8 state 
S44 002406 012437 001256 MOV (R4) +) TEMPS :SET STATS 
S45 002412 104410 CONVRT :TYPE OUT STATUS MAP 
546 0020414 007230 XSTATQ : 
S47 002416 000762 BR S$ 
48 092420 012700 oo1s00 1S: MOV #DM. MAP, RO ;RO POINTS TO STATUS TABLE 
aay en a er ne ae 
ite H T SIFYS THAT THE KMC11S T CORRECT F QATING 
225 both et YOUR SYSTEM. Frit Beet ate nis NOT 15 fae BRE ERRO 
5c is HCHECK S OF AL OU, OUP, 7 Wore. De One). 
Bes 2: HIF HERE ARE RENO OTHER FLOATING” DEV ice Pe Be ae hee Be ae FIRST 
ccé ::#DMC11 ADDRESS IS 760070, KMC11 IS 760110. iy DEVICE "SHOULD E EVER BE AT 
238 : PPTTeTttititiitiri tit tii iii ittititittititiiiiiiritiirecrrerre cross 2) 
S60 002424 013746 o00004 MOV ae4, -(SP) ;SAVE LOC 4 
56 30 MOV a#6, - (SP) :SAVE LOC 6 
CLR a86" :CLEAR VEC+2 
1252 CLR TEMPS :CLEAR FLAG 
S64 O0c444 CLR RS :RS=0=DMC, RS=-1=KMC 
268 opewie 1 001404 AUSTRT: MOV (RO), DMCSR :GET NEXT DMC CSR 
1 BEQ AUDONE :BR IF DONE 
567 TST RS spMc OR KMC? 
a mB Belk f 
I IT15,2(RO) :CHECK FOR DMC CSR 
570 002466 BNE OK :SEIP IF NOT DMC 
57 poe BR 2s 17S A bic SO CONTINUE 
$ 1S: BIT #B1T15,2(RO) ;CHECK FOR KnC mesh 
0014 BEQ ‘SKIP IF NOT K 
74 002606 o00004 2 MOV #NODEV, 384 :SET UP FOR TIMEOUT 
75 1 TST RS :DMC_OR KMC? 
3 19 : oo0cos SOY 2 R3 iB i COUNT OF DEVICES BEFORE DMC 
ye boson | pabaoS Sart} ie BR 
Bac poseee pisrbs provee 3; oy «OEY RS 12 Gevice Tabce PORTER 
581 poses BtS7Be rset MOV OES Red? meth DRESS 160010 
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Be Genes 


CORON OOmo 
eb 
20 NOU WH Ow 


& 


Re 


PB SERRR ES 


cron 
PUES 


or 
Ww 
N 
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4:59 PROGRAM INITIALIZATION AND START UP. 


002612 Ood0c004 
001404 
000010 
000010 
001252 


002612 O01276 


177777 001252 
001262 


R 


RS 


FLOAT: TST 
MOVB 


hg 


TST 


FY: TST 


OK: Abo 
NODEV: CMPB 
ERR: TST 


1$: MOV 


CONTAB: 2 
aByTe 
VR1 
* BYT 
DMC 
DEVTAB: Me 


I03 


PAGE: 
(R1) ;CHECK ADDRESS IN R1 

(R2),R4 :IF NO TIMEOUT, GET NEXT ADORESS 
R4Y,R Ri : IN 
Ri, AL : 

any MORE DEVICES TO CHECK FOR? 
rae F VER cs 
- y ae4 a % co LEFT, SET UP FOR TIMECUT 
ue LMCSR gee i fate 
10, Rl ‘GET NEXT DMC ADDRESS 
H Se ONE 
#10,R9 IP TO NEXT DMC CSR 
AUSTRT : CON TINU 
(R2)+,-(R3) 3ON ae INC Re, DEC R3 
pre aa oe = 0 TYPE HEADER 

oo MESSAGE 
#ERR , SAVPC geRe OM PECUT 
SON BS FOR N Be 

yee REST OF HEADER 
#-1, TEMP3 TF Y GETS TYPED ONCE 
R1,SAVRI SET Fe 1 FoR Hpeouy 

; TYPE CSR VALUES 
RS ;DMC OR KMC ? 
3$ ;BR IF KMC 
4§ ; CONTINUE 
(SP)+, (SP)+ ;ADJUST STACK 
OK :BR TO GET OUT 
6,2 
6,4 
6,2 
7 ;0J 
}? 30H 

;00 
7 ;0U 
ne 
? ‘BC 
7 :02 
7 7 KMC 


0034 
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001236 


091312 


JO3 
2 PAGE 15 


PROGRAM INITIALIZATION AND START UP. 


. EVEN 
AUDONE: TST RS 
BNE $ 


MOV #-1,R5 
MOV #0M. MAP, RO 
BR STRT 

1S: MOV (SP)+, a86 
MOV (SP)+) 084 
BIT #SWO03; STRTSW 
BEQ 3$ 
TYPE MNEW 
CLR RO 
HALT 
CHP JSWR, SAVACT 
PLpe , MERR3 
ae 

2s: MOV WR, DMACTY 
MOV Baacty Ro 
HALT 

3$: V #300, RO 

V #302; R1 

4$: MOV R1, (RO)+ 
CLR (RI )+ 
CMP (RO)+, (R1)+ 
CMP #1000; RO 
BNE 4§ 


,~(5P) 
ed 
ac3, 00" 
6£: 8) 
#157776,R0 
@ , RO 
7$: IM 


(SP)+, (SP)+ 
RO 
87776, RO 
oe 
»RO 


108: 
081 se rptsu 


o 
pet ied i bet toate 


PAGE: 


RS TO -1 (KMC 
; RESET mg START OF TABLE 


G0 
;RESTORE LOC & 

;SELECT. SPECIFIC DEVICES?? 

: TYPE THE MESSAGE. 

TER DATA LIGHTS 

‘WAIT FOR USER TO TELL WHAT DEVICES TO RUN 
"1S THE VALID? 


;DMC? 
BR IF_KMC AND ALL DONE 
; SET ) 


iI CTOR 
;POP POINTERS 
$ ONE? ? 

: F NO. 


= 9 ewe Cowes oe ee eees os 


T INTERRUPTS 
OR LOCK ON TEST 
;BR IF NO LOCK DESIRED. 


5 
x 
a 
5 


003s 


eee ee ee ee ee 


KO3 
BEE PLT be ctetoe tuteg” © UO SE ocRAN INITIALIZATION AND START UP. 


Bae BRaSTG A03995 BRRENB oossee move RNDP TST 
003222 012737 O00e40 003524 HOV NOP, TTST+2 
003640 003522 1s: Rov «Baw, TT 


TTST 
3737 MOV BRX’ TTST+ 
Nee oo7e3s lel 35: MOV BRYOLE RETURN 
1236 4: BIT #SWO1, STATSW 
Ree oh 


4 1 005657 MR 
704 903270 900177 175720 gS: IMP SRETURN 





:ADIUST SCOPE. ROU UTNE. 
T ONG. - 


are aT * 7 eYELEr Pie dic ll DEVICE 
1S TEST N NO. 


Di f TESTING 


PAGE: 


SCOP: 
O TES 


003€ 


LOOP 


LO3 
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Z 
che ootst 
ona SUPORTE PASS, ¢ Xft " ACT-11 
203 ‘REET ART REET 
711 0c3274 900005 .EOP: RESET :MAKE THE WORLD CLEAN AGAIN. 
7l2 003276 7? 001234 CLR LSTERR ‘CLEAR LAST ERROR PC 
i eee dee Bee Gee FRESAebare paee chr 
715 O033le Ol 001230 175660 MOV PREENT QDISPLAY tO OPLAY S SbUNT 
716 003320 104402 T ,MEPASS “TYPE END PASS 
Fig OOss80 ipeNt] poadse GWT 'XESR” show IT 
719 063334 1lo44de TYPE ;MVECX “TYPE VECTOR , 
720 003340 104411 003464 CNVRT + XVEC : s SHOU IT al 
ue 
553 ieee 1BuaeT 5034 CNVRT pase : fs 
723 4 1044 T ; ;TYPE ERRORS 
7 003 CNVRT 
iS 003370 b13720 001230 NOV AUK RO ay Uae COUNT EGR THIS DMC11 
727 003374 013720 O0le3e *(RO)+ STORE ERROR COUNT FOR THIS DMC1! 
728 3400 005337 001314 DEC VNU aOR OL DEVICES TESTED? 
? 06 77 ? 77. QV.FLG cK oveRiFY FLAG. 
Pat Bosale bis? BBNSG GRIST nov BGA, Sah paaaen 
7 ge 4 BEQ idea RONTINGE "(8.000 
734 003430 000005 “= RESET op THE SHOW--CLEAR THE WORLD 
736 pp s4a5 004711 — JSR PC, (RL) 
737 003434 O00240 NOP 
738 003436 000240 NOP 
739 000240 NOP 
740 003442 000240 NOP 
741 OO3444 012737 007620 9001214 RESTRT: MOV #CYCLE, RETURN 
742 0034S2 000137 007620 IMP CYCLE 
743 003456 000001 XCSR: 1 
744 003460 002 -BYTE 6,2 
745 Oo346e 001404 OMCSR 
ae 5 Oe Ce KVEC: Te ue 
748 ea 001374 DMRVEC 
749 003472 000001 XPASS: 1 
750 74 002 .BYTE 6,2 
PASCNT 
73s 1 XERR: 1 
35 006 002 -BYTE 6,2 
754 003504 001232 ERRCN 
7e8 SCOPE LOOP AND INTERATION HANDLER 
759 00 004737 007362 SCOPE: J PC, CKSWR ECK FOR SOFT 
766 eae 010016 wae RO; (SP) + ONE VE RO ON THE STACK 


- - - —- —— ee ee ee ee rw te ie et ee 


MOQ3 
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7b y 777 O40000 175460 BIT egIT14, aSWR ah 00P ON THIS TEST"? 
posee4 000437 — a oR IF No. Ue Cock SWOL=li THis Loc 2540) 
oP D035e6 105777 1754S2 Pere Fc UE st Done? x 
765 1 BPL F NO. (LOCK: HIT KEY TO GOTO NEXT TEST: 
766 003534 017700 175446 MOV STKDBR, RO Se DONE 
767 003540 000415 BR 2s 
768 003542 032777 OO4000 175432 1S: BIT #SW11, 2SWR iDeL ene TERATION? (QUICK PASS) 
583 Mike 082044 001327 BN B V.FLG HAVE Passes BEECOMPLETED? 
771 003556 001406 BEQ 2s : 
as 
$55 Beseeh BORG, BRIS] ooieee As = EBENF. count a He HSE. 
roe Dose | tpsaa7 1 2 LR Zeer G W TEST 
ue 3 
ae pA ad AO1 CR ERENT EREDane FOR NEU 7 
777 003604 005037 O0lec0 CLR LOCK 
778 003610 b1e737 000020 o01222 MOV #20, ICOUNT - T ITERATIONS 
16 O1 O0i2el6 OOle!% MOV NEXT, RETURN GET NEXT TES 
780 003624 011600 3S: MOV (SP);RO ;POP_RO OFF OF THE STACK 
781 003626 022626 POPesP FAKE AN “RTI” 
ree 003630 013701 001404 MOV DMCSR, R1 *Ri CONTAINS BASE DMC ADDRESS 
177 175354 JMP DRETURN . 3G0 00 THE TEST 
784 003640 001407 1407 
765 003642 BRX 437 
788 s CHECK FOR FREEZE ON CURRENT DATA 
730 44 .SCOPI: KSWR : T SWR 
791 abt 175324 1s 9, JSWR igde Kaen Ber)? 
792 001405 BEQ 1$ ‘BR IF NOT SET. 
793 001220 TSI LOCK 
5éc aera 001220 Bee Bc, (sP9 ;GOTO THE ADDRESS IN LOCK. 
736 oo0002 1S: RTI GO BACK. 
TELETYPE OUTPUT ROUTINE 
1 003674 O01 . TYPE: aa RS,-(SP) Be eooee as STACK. 
10; MOV ag ), RS iGET <ffESSAGE. 
¢ oococe ADD #2, 2(SP) ‘Bop 
4S; TST SWFLG 
0 1S “re oe GAROLESS OF SwWl2 
010000 175256 I 12, 2SWR es T ALL RINT 
1 BNE PRIN TOUT al TED W12=1) 
i 1S: STB = (RS) mere ll (MSB=1 (BIT?) 
BPL 2s 
1 005574 TYPE MCRLF ‘- 
i 175246 2S: TSTB oe Hy RE had 
175242 MOVB  (RS)+, @TPDBR INT CURRENT CHAR. 
14 r BNE iF NOT ZERO KEEP PRINTING! 
gis 3S: Nov (SP)+,RS sEND OF OUTPUT. RESTURE RS 


ames - ee ee ne ee ee em een ce re ne ee ee me 


ae een en ee ee oe ee ee ee 


ee os 


0039 


PAGE: 


;SAVE R3 ON STACK 
SAVE R4Y ON STACK 


oo & | Se ao 
> -} 8% Bre 
| 2249 SSae 
yr om 
| Beast _Boie 


GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


14-DEC-76 16:32 PAGE 19 
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010346 

eS ee 


DZDMH 
ae 
003756 





175140 


175136 


suit 


ALTE TIES EY 9 RENT ROE 


is 


g 


So-00 


;CONVERT ASCII STRING TO OCTAL 


er 


Y TS aes ~ eee z*Z. 
onr-areonne 
SESSSSSoSISEE RUPEE ad 


ee ee 
_ 
ee 
wn 
° 


ceetes GEE 
LE are ae 


ee a get 
oo0000 --O 


SSSLANAMAS FRARBGSRL 


nk ad nd ed wd nd od 


888888888888888888 
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873 004210 006305 
874 ates 006305 


875 O04e 000760 
876 OO04216 104404 
877 O042e0 000750 
878 
879 
880 


woOowwnuowuoww $4 
MWR Pe ee ee 


e 


SRRISS 


—-OWWONOWMLCWM-OwW 
2 


BO4 


—" 16:32 _ PAGE 20 


o04e74 
o0427e 
004300 


004276 


oooode 
004301 


001276 


GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


ASL RS 

ASL RS 

BR 1$ 
PARERR: INSTER 

BR PARAM! 


LIMITS: CMP RS HILIM 
BHI PARERR 
CMP RS, LOLIM 
BLO P 
BITB | LOBITS,RS 
BNE PARERR 


;STORE NUMBER AT SPECIFIED ADDRESS 
MOV DEVADR , R4 


1$: MOV RS, (R4S+ 
ADD 2° RS 
DECB = ADRCNT 
BNE 1$ 


MOV (SP)+,R4 
MOV (SP)+;RS5 


RTI 
LOLIM: 0O 
HILIM: O 
DEVADR: 0 


LOBITS: O 
ADRCNT=LOBITS+1 
SAVE PC OF TEST THAT FAILED AND RO-RS 


-SAVOS: MOV 4(SP) , SAVPC ;SAVE R7 (PC) 
;SAVE RO-RS 

SsvOS: MOV RS, SAVRS ;SAVE RS 
MOV RY’ SAVRY SAVE RY 
MOV R3, SAVR3 ;SAVE R3 
MOV Re, SAVR ;SAVE 
MOV R1,SAVR1 ;SAVE Rl 
MOV 0,5 ;SAVE RO 
RTI ; LEAVE 
RESTORE RO-RS 

-RESOS: MOV SAVRO, RO ;RESTORE RO 
MOV SAVR1,R1 RESTORE R1 
MOV SAVR2, Re ;RESTORE Re 
MOV SAVR3, R3 j RESTORE R3 
MOV SAVRY, ;RESTORE RY 
MOV SAVRS , RS 


; RESTORE RS 
;LEAVE 


PAGE: 


0040 


CO4 
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929 
330 ;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
932 A 

933 004374 104402 00SS74 .CONVR: TYPE MCRLF 

34 go440g 010046 “CNVRT: MOV RO,-(SP) 

35 oc44d2 O10146 “0¥ Ri: -(5P) 
SF on ope RY Bao 
938 atta 010546 MOV RS: 

939 OO441l2 017601 oD0n1e MOV a1e(SP) RL 
940 OO44I6 062766 O00002 ooDn12 ADD #2, 12(SP) 
941 OO4424 012137 OD4616 MOV (RL) +, WROCNT 
94 30 112137 004620 1S: MOVB = (R1)+, CHRCNT 
94 34° 1lel 621 MOVB = (R1)+’ SPACNT 
944 OO444O 013137 O04 MOV a(R1)+, BINWRD 
945 OO4444 122737 000003 oD4620 CMPB =—s-&3, CHRCNT 
946 O044S2 001003 BNE 

947 OO44S4 042737 177400 oD4622 BIC #177400, BINWRD 
948 OO4462 013704 O04622 25: MOV BINWRD, RY 
949 OO4466 113705 004620 MOVB § CHRCNT.RS 
det Spada Bt Bans seinbaae 3$ Nov ENP, RO 
9S2 O04S00 042703 177770 BIC #177770, R3 
953 O04S04 062703 000060 A #060, R3 

954 004510 110320 MOVB 3, (RO)+ 
955 004512 go0e41 CLC 

956 004514 OR RY 

957 004516 O00241 CLC 

deg ppee Bese Bpbed ii =f RoR - 

960 004524 006004 ROR RY 

96i 004526 005305 DEC RS 

962 004530 001362 BNE 3$ 

963 004532 012703 007320 MOV #MDATA, R3 
964 004536 114023 4g: MOVB -(RO), (R3)+ 
965 108337 004620 DECB = CHRCNT 

966 44 001374 BNE § 

967 004546 105737 004621 TSTB = SPACNT 

968 O045S2 001405 BEQ 

969 004554 112723 oD0040 SS: MOVB #040, (R3)+ 
970 OO4S6O 105337 O04621 DECB = SPACNT 

971 001373 BNE c$ 

275 Souese {pGUee 07320 “s raATA 

974 004574 005337 OO4b16 DEC WROCNT 

975 004600 001313 BNE 1$ 

oy fem Bete yes 
978 Bp4Ebe ea MOV (5P)+/R3 
979 904610 012601 MOV (SP)+°R1 
980 CO46l2 012600 (SP)+;RO 
862 Dovele 00000 wRocNT: 6 

983 004620 


CHRCNT: O 
SPACNT=CHRCNT+1 


3 
B 
f 


ee ee ee. ee ee ee ee oe 
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SE SR 


GECRRSEREE 


OOO0000000 
be be eb be 
WONT CWO 


SERRRRIERES 


SBS S55 5555000 500000000005099995500 
ae 


8 


ee 
Fant atatatninya: 
GBB LD 


004622 000000 


Fatal as 
—or— 
fj Sits 

NNWOsI0° 
db be 
Rroorrorrn 


F 
wn 
£ 
S 
= 


32 
005232 
006121 


174312 


174304 
174266 
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GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


BINWRD: 


0 


; TRAP piers aera e 


; ARGUMENT OF TRAP IS EXTRACTED 
OFFSET TO OBTAIN POINTER 


;AND USED _AS 
TO SELECTED SUBROUTINE 


.TRPSR: MOV (SP), -(SP) 
SUB #2, (SP) 
MOV a(SP), (SP) 
TRPOK: BS (SP) 
BI #177001, (SP 
ADD #. TRPTAB ecp ) 
MOV a(SP), (SP) 
IMP a(SP)+ 
;ERROR HANDLER 
-HLT: JSR PC, CKSWR 
BIT #Sll2, ISWR 
eu X 
STB  aTPCSR 
BPL XBX 
MOVB = #207, TPDBR 
XBX: BIT #SW13, SWR 
BNE HAL 
CMP (SP) ,LSTERR 
BEQ 
MOV (SP) ,LSTERR 
CLRB. —s ERRFLG 
1$: SAVOS 
MOV (SP) .RS 
SUB #2,.R5 
MOV (RS), R4 
ASL 
ADD (RS), RY 
ASL RY 
BIC #177001 ,R4 
ADD #.ERRT 
MOV (R4)+, ERRMSG 
MOV (R4)+; DATAHD 
MOV (RY) bATABP 
TSTB RRFL 
BEQ TYPMSG 
TST TABP 
BNE YPDAT 
TYPMSG: TYPE  ,MCRLF 
TYPE MCRLF 
TST Lock 
BEQ I$ 
TYPE ,MASTEK 
13: TYPE | MTSTN 
CNVRT [> XTSTN 
YPE | MERRPC 


sGET PC OF RETURN 
:=PC OF TRAP 


: RP 
;MULTIPLY TRAP ARG BY & 
CLEAR UNWAN I 
: POINTER TO SUBROUTINE ADDRESS 


; SUBROUTINE ADDRESS 
GO TO SUBROUTINE 


;CHECK FOR SOFT SWR 
;BELL_ON ERROR? 

;BR TF NO BELL 

;TTY READY. 

:DON’T WAIT IF_TTY NOT READY. 

; PUSH L_AT THE TTY. 

; DELETE ERROR PRINT OUT? 

;BR_ IF NO PRINT OUT WANTED. 

sas THES ERROR FOUND LAST TIME? 
secon BEING ne 
SAVE ALL PROC "pecrsrers 

;GET THE PC OF ERR 

ADDRESS OF TRAP CALL 

GET HLT + lacie 


‘MULT BY T 
;DOUBLE IT 
;MULT AGAIN 


“CLEAR JUNK 
;GET POINTER 


;BR IF Y 
Boes DATA TABLE EXIST? 
: F YES. 


;SHOW IT 
; TYPE PC. 


PAGE: 


O042 


EO4 
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104 1044 4 NVRT  ,ERTABO : SHO 

ite apes 1 ibs oper 001325 nee CRE ec H PA NLE ATA TABLE 

#- LE. 

ied Adesae hacia 00 TST PRAMES He ti mS re ER RON Pec hoes 

ie Gare owe fe erm FE 

1047 005100 Oo0000 ERRMSG: 0 " ERROR MESSAGE 

14g bot DS 737 005112 srpnciitig T ATAH ATA HEADER? 

1 atte Bp Gao beg YPDA es IF NO 

1051 110 104402 TYPE :T 

thes Boe tS Boe onc124 pePbaT: FST ATABP eee 

1054 Shei ey ne BEG RPoREG ‘BR IF N 

1055 005122 104410 CONVRT ; 

1056 005124 o000 DATABP: 0 DATA TABLE 

1057 005126 104407 RESREG: RESOS * RESTORE A oROE REGISTERS 

1058 005130 622737 003432 oD004e HALTS: CMP #SENDAD,d842 IF ACT-11 AUTOMATIC MODE, HALT?! 

1059 005136 001403 BEQ 1$ 

1060 005140 005777 174036 TST aSWR sHALT ON ERROR? 

1061 005144 100005 BPL EXITER *BR IF NO HALT ON ERROR 

1062 005146 010046 1S: PUSHRO :SAVE RO 

1063 005150 016600 oo0002 MOV 2(SP),RO ; SHOM ERROR PC IN DATA LIGHTS 

1064 005154 HALT HAL T 

1065 005156 012600 POPRO GET RO 

1066 005160 005237 001232 EXITER: INC ERRCNT ; UPDATE ERROR COUNT 

1067 005164 777 OOO400 174010 BIT #SWO8, ISWR ;GOTO T OP OF TEST 

1068 005172 001007 BNE YES 

1069 005174 032777 oO2000 174000 BIT #SW10, ISWR GOTO NEXT TEST? 

1070 o0S202 001407 BEQ ‘BR IF NO 

1071 005204 013737 001216 001214 MOV NEXT, RETURN :SET FOR NEXT TEST 

1072 O0S2l2 012706 001200 18: MOV #STACK, SP : 

1073 005216 177 173772 IMP ETURN :GOTO SPECIFIED TEST 

1074 005222 Od00002 2S: RTI : RETURN 

1075 005224 900001 ERTABO: 1 

tor? Boeese ooisse || OF i 

1078 005232 000001 XTSTN: 1 

1079 005234 003 002 -BYTE 3,2 

1080 005236 001226 

108) TENTER HERE ON POWER FAILURE 

1083 . 

1084 

iat ee meres Geeere beeen wPAEL ny = seastant 24 SET UP F UP TRAP 

thes Beesde BAF HALT ‘RAL T ON’ POWER BouN NOS 

1088 005250 000777 BR 

1030 ;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 

1092 ooS2s2 RESTAR: 

1093 005252 012737 ocOSe40 ooDDe4 MOV ;SET UP FOR POWER FAILURE 

1994 012706 001200 MOV aSTACK Last ;RESET THE STACK POINTER 

1095 4 013701 001404 MOV SR, R1 *RESTORE R 

109 005270 005037 o01416 CLR : READY FOR: TIMMER 


FO4 
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1097 74 005237 O01416 INC TEMP :PLUS ONE TO THE TIMER! 

1883 pesed Bors BNE 4 !BR IF MORE TO GO *\ 

1099 104402 905577 TYPE. ,MPFAIL TYPE THE MESSAGE 

1100 104411 005332 CNVRT  ‘PFTAB ‘TELL WHAT TEST TO RETURN TO. 

i101 O053i2 105037 001325 . CLRB ERRFLG ;START CLEAN 

119¢ 005037 001234 - LR LSTERR : 

11 05011 éLR (R1) CLEAR MAINT BITS 

1104 005324 104412 _ MSTCLR “START CLEAN UP OF DEVICE 

1195 177 173662 MP JRETURN START DOING THAT TEST AGAIN. 

11 01 PFTAB: 1 

1107 005334 003 002 .BYTE 3,2 

1198 005336 001226 TSTNO 

1110 005340 DELAY: 

1111 005340 012777 oD0020 174044 MOV #20, JDMPO4 

ill2 005346 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

1113 005350 121111 - 121111 :POKE CLOCK DELAY BIT 

111S 005352 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5204 

1116 005354 121224 121224 sPORT H+ TBUS#1 1 

1117 005356 032777 o00020 174026 BIT #B1T4,30MPO4 31S CLOCK BIT SET? 

1118 005364 001772 BEQ 1$ :BR IF NO 

1119 005366 000002 RTI 

1121 005370 -MSTCLR: 

ll22 005370 152777 900100 174010 BISB © SBIT6, BDMCSRH SET MASTER CLEAR 

1123 005376 142777 000300 174002 BICB #BIT6!BIT7,aDMCSRH ;CLEAR MASTER CLEAR AND RUN 

1124 005404 oco00e2 RTI : RETURN 

1126 O0S406 -ROMCLK: 

1127 005406 152777 000002 173772 BISB  sBIT1,9DMCSRH  ;SET ROMI 

1128 005414 013677 173774 MOV acSP)+,3DMP06  ;LOAD INSTRUCTION IN SEL& 

1129 005420 062746 Oo0002 ADD #2, -(SP) !ADJUST STACK 

1130 005424 032777 OO00100 173550 BIT #SW06, JSWR ‘HALT IF SWO6 =1 

1131 O0S432 001401 BEQ 1$ :BR I SOB =0 

1132 005434 000000 HALT ‘HALT BEF LOCKING INSTRUCTION 

1133 005436 152777 000003 173742 1S: BISB  #BIT1!BITO,SDMCSRH ;CLOCK INSTRUCTION 

1134 oos444 148777 900007 173734 Bice #8IT2'BITIIBIT2,DMCSRH ;CLEAR ROMO, ROMI, STEF 

Zo 

1137 oos4s4 .DATACLK: 

1138 OOS454 013637 O01416 MOV a(SP)+, TEMP sPUT TICK COUNT IN TEMP 

1139 005460 ADD #2.-(SP) ADJUST STACK 

1140 005464 152777 000 173714 1S: BIS8 &sBtT4Y.aDMCSRH ;SET STEP LU 

1141 005472 027777 173706 173704 CMP JOMCSR, JDMCSR WASTE TIME 

1142 005500 142777 O00020 173700 BICB #BIT4,aDMCSRH ;CLEAR STEP LU 

1143 005506 005337 001416 DEC TEMP :DEC TICK COUNT 

1144 005512 001364 BNE 1$ :BR IF NOT DONE 

1145 514 o0000e RTI : RETURN 

1146 516 000001 3$: -BLKW 1 

1148 o0sS20 . TIMER: 

1149 005520 013637 ool416 MOV a(SP)+, TEMP ;MOVE COUNT TO TEMP 

1160 posbe4 062746 o00002 Ps ADD #2,-(SP) “ADJUST STACK 

115 ppeesy 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 


pepne 


11S3 
118s 
1155 


- 
~ 
OF 


— 9 bs ph 9 pope ps 


Nw i Sw SS SS HIE 


ee ed el ol tt onl on oe oe ae ae ee ae eee aa a eae ae eae oe a a ce a ae ee ae an Len fan an an a Lan ae ed ed ed 


oo bo 
“No 
Ow 
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000002 173650 


o0000e 173634 
001416 


021364 
T 
Q 
2s: 
ROMCLK 
OF 364 
t 
BNE 
BRE 
RTI 
MQM: -ASCIZ 
CRLF: .ASCIZ 
MPFAIL: .ASCIZ 
MEPASS: .ASCIZ 
: P30 
MERRe: .ASCI 
Nroree “AeCT? 
Bek: A tS 
MCSRX: .ASCIZ 
MVECX: .ASCI 
MPASSX: .ASCI 
MERRX: .ASCI 
sit Med 235; 
HNE We A RS 
MERRPC: .ASCIZ 
XHEAD Bacty 
3 
NUM: Al Rts 
CSR: -A . 
VEC: a 
PRIO: .ASC 
CRAM: -ASCIZ 
MODU: -ASCIZ 
LINE: -ASCIZ 
BM: Paxts 
NoneT: | “ASCI 
WMES: ‘Beets 
Sl: .ASCI 
CONERR: .ASCI 
RR: .ASCI 
DMCM: ASCI 
KMCM: ASCI 
VEN 
XSTATQ@: 5 
. BYTE 
TEMP 1 
BYTE 
TEMP2 
. BYTE 


PILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


GO4 


#2, JDMPO4 Te Pan CLOCK BIT. CLEAR? 

is’ BR TP VES 
;NEXT WORD IS_ INSTRUCTION, ROMCLK PC=304 
ae Sx REGLI 

#2, JDNPOH LOck BIT SET? 

is” ie a DONE 

y TF 


«15><12> 
(377>/PWR FAILED. + ie ol AT TEST / 
‘a PASS DZDMH 


«377 
(399) NO DEVICES PRESENT. / 
<(377>/ INSUFFICIENT DATA! 


(900 TES PC-/ 
<(377>/LOCK ON SELECTED TEST/ 
7CSR: 7 
/VEC: 7 
/PASSES: 
ZERRORS: / 
guest NO: 7 
‘greet SWITCH REG 70 DMC11°S DESIRED ACTIVE. 
é B) / MAP OF DMC11 STATUS, 
<2l2>7 PC CSR STATI STAT? STATS/ | 


PP) fecunes <cowees scones consss enecce 
< $7) 7HOM MANY A S TO BE TESTED?/ 


(377>/C BQ 

(377>/VECT Res 

(377>/BR PRIORITY LEVEL? (4,5,6 
HAS CRAM (M8204)’ 


7)? 
(377>/1F DMC TYPE mye IF CROM (M8200) TYPE “N™ 


<377>/WHICH LINE UNIT? IF NONE TYPE “Ne IF M9201 TYPE “1", IF ™ 
DDCMP e)?/ 


HE 
(377) ICES ARE SELECTED’ 
«7p he) SiR? s 


ae 37> /DMC11 CONFIGURATION ERROR PC: / 
<377> EXPECTED FOUND/ 
/ (DMC) 7 
4 (KMC) 7 
6,3 
6,3 


6,3 


PAGE: SO4S 
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1171 

1172 
175 
1174 


SSESRR LOLS SELRA PORES Bo ola 


8 


TIT TT AARAR SSIES RESIS — 


tJ 
eo 


ee ee 
WOnNouU 


3 


0 0 
rurorururoruruforur 
Sie 


Ry 


rm 
m~ 


007254 


007256 
007320 


09-DEC- 


001252 
O06 
001254 
O06 
001256 
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003 
202 


000176 
000007 
009207 


177777 
007107 
007117 
g000i8 
000012 
oo00es 
000007 


177770 


002002 


171440 
CC7SSE 


001202 
171606 
171576 


007556 


000906 


CKSWR: 


1$: 


CKSURI: 


CKSWRe: 


CKSWR3: TYP 
CKSWR4: 


4§: 
cs: 


é$: 


HO4 


;BUFFERS FOR INPUT-OUTPUT 


;ROUTINE USED TO CHANGE SOFTWARE SWITCH 
REGISTER USING THE CONSOLE TERMINAL 


RY 
#177770, R3 
Re 

Re 

ae 

CKSWAY 

i START, 6(SP) 


Re, aSUR 
SWELG 


31S a SWR BEING USED? 
Mes ch G TYPED? (7 BIT ASCII) 
G TYPED? (8 BIT ASCII) 


ary SOFT TYPE OUT FLAG 
fal, NEW SWR CONTENTS 
i oo us ALL ONES 


SENT CONTENTS 


TYPE 
isi CH REGISTER 


;OF SOF 
E” 


WAS IT tle —_ 
VBE Unt" 2 GE ney Baer 


;1T ust BE A DIGIT SO CLR FLAG 
;ONLY 0-7 ARE LEGAL SO MASK See BITS 
:SHIFT Re 3 TIMES 


;A Last DIGIT 
Gry Re CHARACTER 

iLF urs TYPED SO GO TO START 

31S F oa 

:IF NOT DON’T CHANGE SOFT SWR 

;IF_YES THEN WRITE NEW CONTENTS TO SOFT SUR 
:CLEAR TYPEOUT FLAG 


OO4e 
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1227 007546 012604 
1228 007550 012603 
1229 007552 Ole6I2 
1230 007584 000207 
4 
1232 007556 00000 
1233 
eee 
S36 Gorsee 017763 
1237 007572 105777 
1238 007576 100375 
1239 007600 010377 
1240 007604 O42703 
1541 007610 eg 
ie42 
1243 007612 000001 
1244 007814 
1245 O07616 O00176 


oo -76 16:32 PAGE 27 
4:59 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


171420 


171414 
17i4le 


171406 
000200 


CKSWRS: 


SWFLG: 


INCHAR: 


SOF TSW: 


T04 


PAGE: 


(SP)+,R4 ;RESTORE RY 
(SP)+/R3 RESTORE R3 
+e p 3 My Re 


aTKCSR 
JTKDBR,R3 
OTPCSR 

R3, JTPOBR 
abit? Rg 


w 


6,2 


0047 
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1246 
1247 
134 
164 
iSey 
1252 
ie 
{$82 97520 905737 
1256 007624 001004 
152, BAPSS AA ARE 
1259 007634 000776 
1260 007636 000241 
1261 07640 006137 
1505 Goveso peseae 
{Sed R8soa2 
1266 007672 001006 
1267 OO7E74 12737 
1 07702 012737 
1269 007710 37 
1270 007716 rita 
1271 00 13700 
1595 bovrs0 pisase 
(55a Boeesy OTTBS? 
BES he 
1558 t 
1278 007756 012037 
t5aa Barres #BtS537 
1281 007772 012700 
1 Braoan Bases 
1284 10010 013737 
He Hie Rie 
128 sta 37 
1288 010034 013737 
1289 o10042 
1290 
i Si ae 
1293 O10060 013737 
Sie 
: 101 
t5a8 Dipti paideo 
1309 010114 
1301 010114 005737 


JO4 
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001374 


oo00de 

14 001406 
001410 
001412 
001414 


001376 
001400 
001402 


ue uy ue 
Re 
000902 


ocoo4e 


001236 


:ROUTINE USED D 131 hx bi aly m ue 18 pret wp 


OUTINE SE 


S UP THE 


GNOSTIC 


iB, Pe Ae SEMA 'ERAMIAL The oTRLRGEAVE Mba ha 


;SETUP NECESSARY. 


CYCLE: TST DNACTY s ARE ANY DNC1L"S TO BE TESTED? 
TYP ,NOACT “N 11°S SELECTED!! 
HAL te SHOH- 
BR .-2 1d, # CONT. SW. 
1S: CLC : CLEAR PROC. CARRY BIT. 
ROL RUN ‘UPDATE POINTER 
ADC CATCH CARRY FROM RUN 
AbD s iL sUEDRTE ADDRESS. POINTER. 
8 
cre ta *200, am NOT AL | -JESTED FOR. 
ROY ESET Oe 
MOV wont RAPS AILK 


2s: BIT RUN, DMACTV 


Q 
MOV 

a th 
MOV DMRVEC 


MOV aa DMCSRH 
may a 
MOV OMCSRH, DMCTL 
HY ETL oro 
ADD DMPO 
MOV DMPO4 , DMPO& 
ADD RO, DMPO6 
MOV C, OMRLVL 
ADD OMRLVL 
MOV DARL VL DATVEC 
ARO OE Ev 
ADD ,OMTLYL 
BIT #SWO1, STRTSW 
BEQ 7§ 
4$: 
TST ast2 


ay unt Bie 
FS THIS ONE ACTIVE 

F NO 
ot Rae a 
feos Bar CTRL. REG 


UN 
;SAVE CORE THIS WAY! 


;PTY LVL 
:TX VEC 


'TX LVL 
;IS TEST NO. SELECTED 
‘BR IF NO 


;RUNNING IN AUTO MODE? 


PAGE: 


0048 


KO4 
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1302 010120 001045 BNE 7$ :BR IF YES 
1303 010122 104402 oOss74 ~~ TYPE MCRLF 
1304 010126 104403 INSTR ° ;GET TEST NO. 
1305 010130 006032 MTSTN 
i306 010132 104405 PARAM 
1308 B1otse | So1A00 
13 19189 lees we pt 
Ct a a ME 1 

cs: C (PC)+; (RO) ;CMP FIRST WORD TO 12737 
i Bibles Bier ae ete 
131 010158 oe 001226 oo0002 MP TETNO, 2¢RO) Bord, Tah TeoNo MATCH? 
131 if rt NE 6 
1318 010166 022760 001226 o00004 CHP #TSTNO,4(RO) 31S LAST WORD OK? 
1329 ok 176 tetera oo1214 ROW RETURN FR 16 R° A LEGAL TEST SO DO IT 
Les Hea se aati 001236 BIC §SWOL, STRTSH 
He Hes BSS cave Bic eB en 

cs’ BR IF 
1358 pt SSe setae 005570 MQM iYES I Poo TEST NO 
1328 010232 000730 BR dg TRY AGAI 
l 10234 01 S766 001214 : MOV 8TST1, RETURN ; PREPARE RETURN ADDRESS 
1330 pt 2 Oe than ae: MOV breck Ri BASE DMC11 ADDRESS 
1338 01024 900177 170742 IMP JRETURN if START TESTING. 
1 
TI TO “AUTO SIZE" THE DMC11 
tee coe et a MA THE FLOATING 
1336 iNO Mobress fenck intoute| whoo) 
1 : MAY BE ANY WHERE IN THE 
iB : FLOATING VECTOR RANGE (300:770) 
1 a 
te 010252 AUTO. SIZE: 
i3ue Oitess O12 708 001500 ¢ Sot. ADH. NAP, R2 eee 
Ea ideeg aie is: GR Cheha a int 
te biteee oD1 ar 1 ene OrRunt “< R OF DNC1I'S To 9 
as v 

1356 Biter O12 70e vp Sot SONCHAP, Re Layee 
1351 Ol 001 CLR DMACTV Pry ACTI 
iiss Mee rate 000001 001236 IT wSHO0, STRTSH 
1354 {pais 137 010744 73 TF ho SKIP QUESTIONS 
1355 010320 012737 000001 oo1256 HOV #1, TEMPS START WITH 1 
1369 Bibss8 Abeses 


Cone ee ee ee oe ee eee ees eee ee — 


LO4 
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1358 O01 4OS PARAM 
1359 Ol 1 
1360 010336 16. 
1361 010340 001252 TEMP 
i Gis BE 
L818 oars? oovese ooi10 =, AO Texpa.ornum soem = HOw 
l l 4 “— CONVAT ’ WHICH DMC IS BEING DONE 
13e? Oloae— Aiias Gach TEMES TS WHICH ORC 
1368 010362 005237 001256 INC TEMPS 
1369 10366 1O4403 TR 
He bites | tee 
1373 010376 164000 164000 
1374 bios 001254 MP 
1 *BYT I 
ie bipics nish 001254 EMPY, (R2)+ ;STORE CSR IN MAP 
i378 010410 104403 INSTR 
1379 010412 006430 VEC 
1380 10414 PARAM 
He Bias - 
1383 O10422 901254 TEMP4 
1384 OlDiss 000 v7 
136° ease eae 001254 MOV TEMPY, (R2) ;STORE VECTOR IN MAP 
1387 010432 104402 10S: TYPE 
1388 a) PRI GS etSpoRee WHAT BR LEVEL 
1 l 011734 J PC, INTTY 
1390 01 000024 CMP #24,R3 
139 blovss g1014 rte 08 3 BR IF LESS THAN 4 
a es Te eee ee 
= 
: : SHIFT F 
He bie e ee ae 
1330 ste Oao33 170777 I #170777,R3 BIC NNENTED BITS 
1399 010474 0SO31 BIS R3, (Re) spur OR VEL IN STATUS MAP 
101 O10 doce = mone RE IS OUT OF LIMITS 
Pace o fe ™ joa 7 
1 1051 Obs cra sQOES atte HAVE CRAM? 
i 1051 011734 SR PC, INTTY : PLY 
1 1051 000131 CMP H131,R3 
1308 i Sees OODLE Ree aT16,R3 NGS 
141 10850 I ero ais :NOT A Y OR N 
i4i2 LOE boss mone TYPE "2" 
ints sa Bbo763 BR 8S ASK AGAIN 


SECTET ORE SOR URRE DROS 


= 
OOO OOO OOOO 000008 OOOO] OOOO OOOO OOO OOKOOOODOOO0O000 O000000 


bbb be he fb tb bb he he 


MO4 


338, 
BIS #B1T13, (Re) ;SET BIT 13 IN STAT2 IF MB2Ce 
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010540 052712 100000 98: BIS #BITIS, (Re) ;SET BIT 15 IF CRAM 

10546 “MOD ASK WHICH LINE UNIT 

1 004 011734 JSR PC, INTTY GET REPLY 

10554 022703 000021 CMP Sh R3 ‘ys 

10560 001417 BEQ : 

pepe BBiais CUddee ey Sai Joa 

10570 022703 000116 CMP #116,R3 :"N” 

ipese IOs Oe 

10868 o0s570 nov :IE NOT A 1,2 OR N TYPE "7 

1 010000 325 I #BIT12 (Re)+ RY airy 12 IN STAT2 IF NO LU 

ipeto p3sces Bt (Re)+, tRe £3 OVER EAN AND STAT3 

10612 OO0447 BR 

tbese Spaaas 5 aie: Be 
10622 007016 ‘ ASK IF LOOP-BACK IS ON 
10624 004737 011734 JSR PC, INTTY :GET REPLY 
ites 000131 cHP #121, R3 rY 
1 000116 CMP #116,R3 :N 
IbeNd SONNE re «|OC SS 
1 sIF NOT Y OR N TYPE “2” 
ites Ohes70 —_— TE MOL, 
10652 052722 o40000 17$: BIS #BIT14,(R2)+ | ; TURNAROUND IS CONNECTED 
iBeeb fa 9788 040000 198: IC T14,(R2)+  ;NO TURNAROUND 
10664 104403 “INSTR 
1678 1ostbs 
1 0 
10674 000377 377 
10706 - ve og 
1 1 “BYTE 1 
10702 113722 001254 MOVB. TEMPY, (R2)+ ;STORE SWITCH PAC IN MAP 
1 104403 NSTR 
1071 
10714 0 
10716 000377 377 
10760 001254 TENPY : 
1 *BYT 
ibe yah 001254 AM tenpy R2)+ ;STORE SWITCH PAC IN MAP 
i 001252 33S bec TERPS ie SMe CBUNT . 
ea (Bet ign 10 00 
10744 Ol 73: MOV w Rl TF S 
1B 560 BiS293 if tt 000004 MOV Hetty fd a NON-EX Tree Ke Dev IEE Tike oor 
10756 005011 2S: CLR (R15 


--+* 6 ee ee eee « re er se ee ee 


ABR PTL We 
1470 bieree BBrike 
ie Gigs far, 
1476 011002 005061 . 000004 
Iie BHR BASH bgpgag moO» 
Se oe om 
iat 
HES WE RS como 
tgp BLi06 Bgrcts 177777 sooo 
RE OT ee 
Ci aes 
Lt A 
iD He fee 
1503 011156 1 oooo0e oo00D4 
ie HI fag OO 
i ils a 990109 900004 
Hb lisa Gert Gee 
1EIS BLIe% 3e7e| GBD0I8 ooo 

1 

i ae 
ioe a ae 
1e5§ Btisea Pee7ss BRAAR 
1258 BLLie BOEOIT 


21S: MOV 


ist: 


NO4 


PAGE 3: 
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PAGE: 


o0Se 


s TE RO bbe PRaB “40°. re No BIT @ THEN NO OMC! 


CLEAR SEL6 


Bin te opr hr ca penic S/B =0! 


#BIT10, (RL) ae 

ine (RL) ; arm Er TO SEL6 
4(R1) T oi TTEN? 
goete, 7 ues, IT S NOT CRAM 

aiTlS, 2(R2)  ;SET BITS IF CRAM 

a6 Ls (RI ) 


bien) ‘Bot ROE TRUCTION IN IN SEL6 
aun (RL) : onto INSTRUCTION (MICRO PROC PC TO 0) 
eta) 


Te 
#1 B(RI) tIF = -1 IT HAS NO CRON 
-AT THIS POINT IT TS ASSUMED nal R1 HOLDS p ONC CSR A ADDRESS. 
e179, (RI) Stee LIN ne tN Loop 
a)e0)13, BRL) HLoAg THETaUeTE th (CLR DTR) 


te (RI) ‘TOAD INSTRUCTION a 
Bey (Bh joe alt BNE? 
12, (Re) 88 IE P tes” NO LINE UNIT, SET STATUS BIT 
: s4CRL) ;1S SWITCH A ONE? 
'BITLY, ( Vi CONNECTOR 
#BIT13!BIT14, (Re i. on aun 


soit 4(R1) 
— Ht IF TE Nes0l NO CONNECTOR (ON LINE) 
Str, 4(R1) 


3s he ioe Tne TRUCTION 10H ON(SET DTR) 
a sany eae date 


ma io again mene 


a , (R2) ig sre iM BTUs BIT FOR CONNECTOR 


(RL) INST UCTION IN PORTS 
' has (RL) } 
$ LINE # IN TABLE 


i (RL) BORE NSTRUCTION 
wearer eha, . Heh 0GK 1 ADD IN TABLE 
(Re)+ :POP OVER Stara 

(Rl) ;CLEAR ROM 


BOS 
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1526 011314 005237 001310 INC DMNUM ;UPDATE DEVICE COUNTER 
1527 011320 022737 000020 001310 CMP #20, DMNUM : ARE DEV FOUND? 
1528 011326 001410 BEQ 13$ ‘YES DON’T LOOK FOR ANY MORE. 
1529 011330 o0S011 38: CLR (R1) ‘CLEAR BIT 10 
i530 011332 005061 oo0006 CLR 6(R1) *CLEAR SEL 6 
1531 011336 062701 OO0010 14$: ADD #10, Ri ‘UPDATE CSR POINTER ADDRESS 
1532 011342 022701 164000 CMP #164000, R1 
1533 011346 001203 BNE 2$ ;BR IF MORE ADDRESS TO CHECK. 
1534 011350 005037 001306 13$: CLR DMACTY 
1535 011354 005737 001310 TST DMNUM ;WERE ANY DMC11’S FOUND AT ALL? 
1536 011360 001423 BEQ S$ ERROR AUTO SIZER FOUND NO DMC11’S IN THIS SYS. 
1537 011362 013701 001310 MOV DMNUM, R1 
1538 011366 010137 001314 MOV R1, SAVNUM ;SAVE NUMBER OF DEVICES 
1539 011372 000241 4§; CLC 
1540 011374 006137 001306 ROL DMACTV ;GENERATE ACTIVE REGISTER OF DEVICES. 
1541 011400 005237 001306 INC DMACTV *SET THE BIT 
154 O11404 301 DEC Rd 
1543 0114 1371 BNE 4 ;BR IF MORE TO GENERATE 
1544 011410 012737 o00006 oD0004 MOV #684 RESTORE TRAP VECTOR 
1545 011416 013737 001306 001312 MOV DMACTV,SAVACT SAVE ACTIVE REGISTER 
1546 011424 000137 011456 IMP VECMAP -GO FIND THE VECTOR NOW. 
1547 011430 104402 o0Seb2 S$: TYPE MERR2 “NOTIFY OPR THAT NO DMC11’S FOUND. 
1548 011434 CLR RO i MAKE DATA LIGHTS ZERO 
1549 011436 000000 HALT :STOP THE SHOW 
1550 011440 000776 BR 2 ‘DISABLE CONT. SW. 
1551 OL 1aie ig 011336 6S: MOV #14, (SP) *ENTERED BY NON-EXISTANT TIME-OUT. 
155 11446 RTI *RETURN TO MAINSTREAM 
1554 011450 oo0001 ow WHICH: es oi 
188 pt tdes 001 Bee iPnpe “ 
1558 O1145&6 032737 000001 001236 VECMAP: BIT #SWOO, STRTSW 
1559 011464 001114 BNE 
1560 011466 012737 000340 oD00e2 MOV #340, a#22 ;SET IOT TRAP PRIO TO 7 
1561 011474 012737 O11650 o00020 MOV 84S, #20 -SET IOT TRAP VECTOR 
1562 011502 Ole702 001500 MOV #0M: MAP, Re :SET SOFTWARE POINTER 
1 011506 12700 000300 MOV #300, RO *FLOATING VECTORS START HERE. 
1564 011512 012701 MOV #302'R1 *PC OF 
1565 011516 010120 1S: MOV Ri, (RO}+ ; START FILLING VECTOR AREA 
1566 011520 012721 oo0004 MOV (R1)+ ‘WITH .+2; IOT 
1567 011524 CMP tRO)s (R1)+ *ADD 2 TO'RO +R1 
1568 011526 020127 001000 CMP R1, #1000 
1569 O1 153 0177 BLOoS -«1g’ ;BR IF MORE TO FILL 
1570 011534 013737 001306 ool1e46 MOV DMACTV,TEMP1 § ;STORE TEMPORALLY 
1571 011542 006037 001246 2s: ROR TEMP :BRING OUT A BIT 
1572 O11546 103063 BCC cs :BR IF ALL DONE 
1573 011550 012704 ooo01e MOV #12,R4 RY IS INDEX REGISTER 
1574 011554 016437 011720 177776 MOV BRLYL(R4),PS  ;SET PS TO 7 
1575 011562 011201 MOV (Re) ,R1 
1676 011564 Oie761 o00200 op0004 MOV #200'4(R1) 
1 0115 12711 001000 MOV #B1T9, (R1) ;SET ROMI 
1578 011576 O12761 121111 oo0006 MOV el21i41,6(R1) PUT INSTRUCTION N PORTE 
1673 Oi O1e7i 001400 MOV sBIT9'BtTe, (RL) : ;FORCE AN INTERR 
11610 1 7$: INCB = RO! T 
1581 011612 001376 BNE -2 POR TIME TO INTERUPT 


DZOMH  MACY11 27( 1006) 
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1 011614 162704 
1 011620 001404 
1584 iptacd 016437 
1ses Slits) oot 
12g abteed 005011 
1588 011642 
1589 O1164%6 3S 
1530 Tote 
: 91 ie 
ise OL1bee 
i531 OLib7g 
1896 011674 
1597 011676 
1898 011702 
1899 011706 Oeebeb 
1600 011710 012716 
1601 011714 oo000e 
1606 011716 000207 
1604 0611720 o00000 
1805 011722 o00000 
1606 011724 9Qg00200 
1607 011726 O00e40 
1608 011730 000300 
16038 011732 
1610 
1611 
léle 011734 105777 
1613 911740 100375 
ie1s Olie di7za3 
ibis Slime 105777 
1617 011754 010377 
1618 0117680 942703 
1619 C117E4% QO00207 
1620 
l6el 
lée2 OLI7EE 
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4:59 
oooode 
011720 177776 
005300 900002 SS: 
000010 ’ 
4§: 
oooode 
011722 
170777 
000002 
011640 
S$: 
BRLVL: 
167244 INTTY: 
167240 
167236 
167232 
000240 
15300 
154900 ROMMAP: 


COS 


GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


CSP), ashe) 


Secs), RS 


LEVEL 7 


aTKCSR 
aTKDBR, R3 
JTPCSR 


R3, JTPDBR 
aBiT7:B1TS,R3 


ioe IP Rd 1 pe PS LEVEL 
; MOVE er ‘a LEVEL IN PS 


BR TO 


PAGE: 


o0s4 


sh an RUPT ASSUME 300 AT LEVEL S AND FIX CMCi! 
POP SOFTWARE POINTER 


;KEEP GO 
GET a th 


SHIF 


NG 
OR ADDRESS 


OF DMC11 


VEL 
VEL 4 PLACES 


Sats tane™ = 


LEAR UNWANTED 


3¢ BITS 
;PUT BR LEVEL IN STATUS TABLE 
OFF STACK 


;POP IOT JUNK 


SET FOR 


;WAIT FOR 


RETURN 


;ALL DONE WITH “AUTO SIZING” 


DONE 


;PUT_CHAR IN 


R3 
:WAIT UNTIL PRINTER IS READY 


;ECHO CHAR 
;MASK_OFF 
;RETURN 


LOWER CASE 
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Ul OWOnNOuUlcr 


— 
tet 
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INIT--INITIALIZATION ROUTINE 
IDLE--PROGRAM I LOOP 


SSRV---- BASE SERVICE ROUTINE 
NIDLE@---NO CSR_ACTIVITY STATE 
ear FOR RGI TO CLE 
OUTINT---SET UP OUTPUT eer (RDYO) 
CTL SRV-ch T Fog. mye TO GO AWA 
Fanta Tran RVI 
RV-- TRANSMITTER BUFFER ADDRESS SERVICE 
VE ADDRESS SERVICE 


RC T 
RCVG--ROUTINE TO 


_ 


05 
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GNORE CRC1 
CVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AN 


R 
RCVKO1--ROUTINE TO HANDLE FIRST BYTE ODD RECEIV 
RCVKO--PROCESS OND CHARACTER 


fe 


MAC 
1 DDOCMP MICRO ise ASSEMBLED FOR USE WITH THE M820i LINE UNIT 


OF COUNT FIELD 
SECOND CHARACTER OF COUNT FIELD, SELECT AND FINAL 
wot FIELD FOR NUMBERED MES 
N a4 OF NUMBERED MESSAGE 


SAGES 


[DD UNNUMBERED TYPES 


PAGE: 


ooss 


eee oe ee + 


EQS 
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DDCHGH . MAC 


NXMERR 
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VKE--HANDLE EVEN BYTES 
Sey ae a SELECT AND FINAL 
ACVG—-UNNUMBERE RRUMBER 
RCVR-<PROCESS, CR Soe o DATA MESSAGE 
EN2--PROCE 


THTDAS TRANSIUTTER DISPATCH RO TINE 


oF COUNT 
OF C 


AS art oh a a 


THTJ--SEND SUBTYPE: F 
a li RESPONSE F TED ‘ UNNUMB MSG) 


SNDACK~-ROUTINE TO SEND A 
REP HANDLER 

START HANDLER 

STACK HANDLER 
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.TITLE OMC-11 MICROPROCESSOR INSTRUCTIONS 

“CaTtE RaeRd DEF ING TIONS 

"SBTTL REVISION 00 

-SBTTL FEBRUARY 25, 1975 

*SBTTL 

*SBTTL REVISION Ol. 

-SBTTL “MARCH 1 

-SBTTL NEW sk ead aRD CHANGES 

“SBTTL HARVEY M. SCHLESINGER 

"SBTTL COPYRIGHT 1975 DIGITAL EQUIPMENT CORPORATION 


£O0TU+-OW OD Oru £& Gotu 


+0 0 op 


Be 4 


é. 


bs 
o- 


TUlUee- o- — 
~-(O0@0nNCa 


22 


Do 
ro 
i 


ESSOR pre TR ‘oe 
O6-DEC-76 


oocooc 


pbbi1e0 
004000 


003050 
003400 


MACY } 2701 
GHT 19 


COPY 


abe s00 
SPBRX=340C 


BRYCON=3000 
BR7CON=3400 


ordtToe EQUIPHENT CORPORATION 


NEW=0 
; MICROPROCESSOR are ie DEFINITIONS 


SOPCODE JUMP 


BR 
t DEST-EXTENDED IBUS 
fee FT ct LEFT 
;DEST-WRITE thal 
DEST-WRITE MEMORY 


eet -WetTE 2b P AND BR 


sFUNCTION-SELECT A 


SEUNG ION A XOR B 

:FUNCTION- TWOS COMPLEMENT SUBTRACT 
te on 

INCREMENT A 

3A PLUS CARRY 


7A pte A 
:A PLUS A PLUS C 
;DECREMENT A 


;CONDITION C 
:CONDITION Z 


SANE YS on BRO 
;CONDITION BR1 
; CONDITION BRY 
:CONDITION BR? 


OMC-11 MIC 
OMCHGH . MAC 


ee 
6 


? 
68 
£9 


ol 


NO 


0+ 0+ 0 = 0 = 0 2 ee 
TU b= 8 -  -  CFDOOO 
OwonNMncwre-Owd 


ROPER v- 
O6-DEC-76 10:31 


10c0cc 


HOS 
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MICRO INSTRUCTION DEFINITIONS 

.SBTTL MICRO INSTRUCTION DEFINITIONS 

ett BRANCH ONS RUC TONS 
SumP= 100000 : JUMP OP CODE 
‘ .MACRO $ZERO 

MICPC=MICPC+1 

o0dgod0 

.ENDM  $ZERO 

.MACRO ALWAYS ADDRES ; JUMP ALWAYS 


MICPC=MICPC+1 
<« JUMP! ALCOND! <ADDRES-INIT83000%4> ! <ADDRES-INIT8777 72> > 


-ENOM 
, {iRCRO, BRO ADDRES ;JUMP IF BRO SET 
“JUMP! BROCON! < ADDRES-INIT&3000%4> ! <ADDRES-INIT$777/2>> 
-ENOM 
.MACRO BRI ADDRES ;JUMP IF BRI SET 
AICPC=MICPC+1 
‘JUMP! BRICON! <ADDRES-INITS&3000%4) ! <ADDRES-INIT8777/2>> 
-ENOM 
' MACRO _BR4 ADDRES ;JUMP IF BRY SET 


MICPC=MICPC+1 
< JUMP! BRYCON! <ADDRES-INIT&3000#4> ! <ADDRES-INIT8777/2> > 


.ENOM 

, .MACRO BR7 ADDRES ;JUMP IF BR7 SET 
MICPC=MICPC+1 
< JUMP! BR7CON! <ADDRES-INIT&3000*4> ! <ADDRES-INIT8777/2>> 
.ENDM 

4 .MACRO 2 ADDRES ; JUMP IF 2 BIT SET 
MICPC=MICPC+1 
< JUMP! ZCOND! <ADDRES-INIT83000#4> ! <ADDRES-INIT3777“2>> 
.ENDM 

: .MACRO C ADDRES ; JUMP IF C BIT SET 
MICPC=MICPC+1 
JUNE? CCOND! <ADDRES-INIT&3000*4> ! <ADDRES-INIT8777/2>> 
.ENDM 
“SBTTL INDEXED BRANCH INSTRUCTIONS 


-MACRO .ALWAY SRC,FUNC,SPLOC ; INDEXED JUMP ALWAYS 
MICPC=MICPC+1 


DMC-11 MICROPROCESSOR 97% - pe 


OMCHGH. 


0 0-* 0 = b= b= 0 0 0 8 = = Oo 2 2 = oo 
SSBVFALSREASSGVRUTLOwS § 
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hove=o 


INDEXED BRANCH INSTRUCTIONS 
«JUMP! ALCOND! SRC! FUNC! SPLOC> 
. ENDM 
Ren -BRO SRC,FUNC,SPLOC ; INDEXED JUMP ON BRO SET 
React ae 'FUNC! SPLOC> 
- ENDM 
ALCCaMICECs| SRC,FUNC,SPLOC ; INDEXED JUMP ON BRI SET 
JUNE! BRICON! SRC! FUNC! SPLOC> 
- ENDM 
AteeRe rs 4 SRC,FUNC,SPLOC ; INDEXED JUMP ON SRY SET 
«JUMP! eK Shs cacrFUNC!SPLOG> 
- ENDM 
PERS,» se, SAF Le ; INDEXED JUMP ON BR? SET 
«JUMP! BR7CON! SRC! FUNC! SPLOC> 
- ENDM 
MACRO SRC,FUNC,SPLOC ; INDEXED JUMP ON Z BIT SET 


MICPC=MICPCH1 
< JUMP! ZCOND! SRC! FUNC! SPLOC> 


-ENDM 

afe RO rebet SRC,FUNC,SPLOC ; INDEXED JUMP ON C BIT SET 
(JUMP! CCOND? SRC! FUNC! SPLOC> 

- ENDM 

. SBTTL MOVE INSTRUCTIONS 

;MOVE OPCODE 

.MACRO BRSHFT ;BR SHIFT RIGHT 
MICPC=MICPC+1 

«MOVE! SHF TBR! WRTEBR! SELS> 

. ENDM 


-MACRO BSHFTB ;BR ROTATE 

1 Ce 

.ENOM 

-MACRO SP SRC,FUNC,SPLOC ;LOAD SCRATCH-PAD 
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MOVE INSTRUCTIONS 


MICPC=MICPC+1 
«MOVE! SPX! SRC! FUNC! SPLOC> 


- ENOM 
-MACRO SPBR SRC,FUNC,SPLOC ;LOAD SP AND BR 
MICPC=MICPC+1 
«MOVE! SPBRX! SRC! FUNC! SPLOC> 
. ENDM 
-MACRO MEM SRC,DATA ;MOVE TO MEMORY 
MICPC=MICPC+1 
«MOVE! WRMEM! SRC! <DATA> > 
. ENDM 


-MACRO MEMADR ADDRES, FUNC ;WRITE ADDRESS TO MEMORY 
MICPC=MICPC+1 


.IF B FUNC 
«HOVE! WRMEM! <ADDRES-INIT8777/2> > 

«HOVE! URMEMS FUNC! < ADDRES-INIT8777/2> > 

*ENOM 

.MACRO MEMINC SRC,DATA ;MOVE TO MEM, INCR MAR 
MICPC=MICPC+1 

<MOVE ! WRMEM! INCMAR! SRC! <DATA> > 

.ENDM 

.MACRO BRWRTE SRC,DATA ;MOVE TO BR 
MICPC=MICPC+1 

<MOVE! WRTEBR! SRC! <DATA>> 

.ENDM 

.MACRO BRADDR ADDRES ;PUT RETURN ADDR (1 BYTE) IN BR 
MICPC=MICPC+1 

(MOVE! WRTEBR! <ADDRES-INIT&777/2> > 

.ENDM 

. MACRO OUTPUT SRC,DATA ;WRITE OUTPUT 
MICPC=MICPC+1 
<MOVE ! WROUT! SRC! <DATA> > 

. ENOM 

.MACRO OUT SRC,DATA 

MICPC=MICPC+1 
HOVE !LROUTX! SRC!<DATA>> 


-ENDM 


C061 
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MOVE, INSTRUC Ping " 
-MACRO LDMA SRC,DATA ;LOAD MEMORY ADDRESS REG 
MICPC=MICPC+1 


inove! Lona! 1 TMM! <DATAB377> 
«MOVE! LOMAR! SRC! <DATA> > 
-ENDC 


-ENDM 


. MACRO LONAR SRC,DATA ;LOAD MEMORY PAGE NUMBER 
NICPC=MICPCHL 
dF IDN S 

VEE ORAS TM! <DATA/HOD> 


ol F 
<MOVE! LOMAPG! SRC! <DATA> > 
» ENDC 


-ENOM 


.MACRO LDADOR goata ;LOAD A LINE TABLE ADDRESS 
BRWRTE IMM, DATA 
LDMA —- BR, <ADD! SP. RMO> 


sieroatt CMP SRC,SPADDR ;COMPARE SOURCE AND SP 
1 Gara at 


. ENDM 

ate RO tee P A ae FUNC,SPADDR ;NOP-SOURCE, FUNC, NO DEST 
SRC! FUNG! SPADDR> 

. ENDM 


REG, ADDRES ; SUBROUTINE CALL 
nee creer) +1837 


SP BR pnt ore Rec 
ALWAYS ADDRES 
.ENOM 


.MACRO RETURN ; SUBROUTINE RETURN 
“ALWAY BR,SELA, REEL PRED 


0062 


LOS 
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MCHGH.MAC  96-DEC-76 10:31 INPUT/OUTPUT ASSIGNMENTS 
28 TL INP T/OUTPUT ASSIGNMENTS 
5B5 Buse ASSTGNME 
284 100000 iNCON=0+1 ap000 sIN CONTROL CSR 
eas 190020 MAIN= | bet NTAIN NCE REGISTER 
295 10004 OCON= CONTROL CSR 
287 l UBADDR=60+ 100000 : NUSED 
288 100100 PORT I= 100+ 100000 UNS 
Bag 100120 PORTe=120+1000 CSRS 
290 100140 PORT =i +1 BbonD *CSR6 
291 100160 PORT4=160+100000 i CSR? 
me | Of a Pe 
1 UBBR=ec0+ BRIN ERRUPT ) CONTROL 
294 000000 INDAT1=0 s INPUT bara Low ui 
5% 19 ip =180 BUT BA L CH aL 
1 = ‘OUTPUT BA HIGH BYTE 
298 0001 Al= s INPUT BA L BYTE 
53a = ; INPUT HIGH BYTE 
T=29 *RECEIVE DATA 
301 go02e0 THTCON=2e4 sTNTR CONTROL 
26 Mz MODEM SON TROL 
a8 3 SYNREG= sSYN REGISTER a 
306 une BN ea= a0 : AE NUE ee 
307 000360 LUMAIN=360 ‘LINE UNIT MAINTAINENCE 
308 ;OBUS _ ASSIGNMENTS 
309 “EXTENDED OBUS 
310 oo0000 SINCON=0 ;IN CONTROL CSR 
311 000001 OMAIN=1 : MAINT 
312 02 OOCON= jQUT_CONTROL CSR 
ata Nate i ea 
315 000005 OPORT2= = CSRS 
316 000006 OPORT3= ;CSR6 
317 00007 OP TH: 5 COR? 
S 150010 =10 :NPR CONTROL 
319 000011 OBR=11 ;BR CONTROL 
320 UNEXTENDED oBuUS 
321 oooo02 SUTDAL= ;OUTPUT DATA LOW BYTE 
322 000003 OUTDA2= :QUTPUT DATA HIGH BYTE 
323 000006 OBA1=6 : UTPUT BA LOW BYTE 
36d ie + PNPU Bf Lon BYTE 
32 000005 Tphe=s ; INPUT BA HIGH BYT 
ue = 
BOATS OTMTC =H) *TMTR CONTROL 
329 000012 ORCVCO=12 RCVR CONTROL 
30 ODEM=13 ; MODEM c NTROL 
3} 14 YNC=14 ?SYN REGISTE 
3 17 OLUMAN=17 *LINE UNIT MAINT. 


BRCHGA. RAC 


MICROPROCESSOR oS Mente 


06-DEC-76 
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PROTOCOL DEPENDANT MACROS 


SOIT, PROTOCOL DEHLOMIT RACROS ;UPDATE RECEIVE STATE POINTER 


NICPC=MICPCS 1 
at LHATERS 5 RS ae errs 
(ROVE! SPX! ER! SELB!SP2> 


B RO TSTATE STATE 
hic C=MICPC+1 
(MOVE ! WRTEBR! IMM! <STATE-INIT8777/2>> 
MICPC=MICPC# 
MOVE! SPX? BRESELB! SP2> 
. ENDM 


* MACRO STATE ADDR 
MICPC=MICPC+1 
yoy 'WRTEBR! IMM! <ADDR-INIT&77772> > 


‘MACRO PSTATE STATE 
MEM IMM, <«<STATE-INIT&77772>> 


. ENOM 

"MACRO PSTATI STATE 

MEMINC IMM, <<STATE-INIT&877772>> 

.ENDM 

"MACRO SYNMAC 

&p BR, SELB, SP2 ;UPDATE STATE POINTER FROM BR 
SYNOUT 

ALWAYS IDLE 

. ENDM 

MACRO SYNOUT 

LOMA PTR TO UNNUMB MESSAGE SKELETON 
OUTPUT NEAX* TNCHARD , » <SELBIO somurbbs :SOM TO TMTR CONTROL 


yay CNEMX! INCHARD «SELB! TMTDAT> ;SYNC TO TMTR SILO 


MICPC=177777 ; INIT MICRO PC 


05 
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HILOW. MAC O3-DEC-75 10:16 DMC11 DOCMP MICRO CODE ASSEMBLED FOR USE WITH THE M8201 LINE UNIT 

377 -SBTTL DMC11 DDCMP MICRO CODE ASSEMBLED FOR USE WITH THE M8201 LINE UNIT 

378 000000 LOW=0 


«- PROTOCOL ek“ tendeee 


MACY11 27(1006) 


14-DEC-76_ 16:44 


PAGE 6 
O6-DEC-"6 11:34 DMC11 DOCMP MICRO CODE ASSEMBLED FOR Se” WITH THE M8201 LINE UNIT 


- TITLE DMC11 DOCMP PROTOCOL IMPLEMENTATION 
-SBTTL VERSION OOA FEBRUARY 26,1975 


-SBTTL 
-SBTTL HARVEY M. SCHLESINGER 
-SBTTL COPYRIGHT 1975, DIGITAL EQUIPMENT CORPORATION 


VERSION 008 MARCH 17 
CSR AND MICROPROCESSOR CHARGES 


VERSION 00C NOVEMBER 6, 1975 
RETRANSMISSION CHANGES 


VERSION OOD DECEMBER 3, 1975 
TRANSMIT DONE CHANGES 


THE LATEST poo aries WERE ADDED ON: 
NOVEMBER 16, 1976 


PAGE: 


O06E 
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MP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-1 PAGE: 
734 MICROPROCESSOR MAIN MEMORY ASSIGNMENTS 


.SBTTL MICROPROCESSOR MAIN MEMORY ASSIGNMENTS 
“ALLOCATION OF MICROPROCESSOR MAIN MEMORY 
NAK *NAKS RECD--DYNAMIC 

: FETED OY NAR 


000001 NAKST=NAKSR+1  ;NAKS I 
ood2 REPSR=NAKST+1 ;REPS RECD--DYNAMIC 
000003 T +1 REPS TMTED--DYNAMIC 
NP=REPST+3 “CONSTANT O 
009007 NTLR=NP+1 ?NAKS-MSG NO BUFFERS CUMUL. 
000019 NHOR=NTLA+1 >NAKS-MSG HEADER BAD 
000011 sNAKS_DATA BAD 
000012 NTLS=NDATR+L =; --NO BUFFERS 
000013 =NAK SENT BaD 
000014 NDATS +1 3NAK SENT DATA 
000015 REPCS=NDATS+1  :REPS SENT CUMUL 
900016 RE +1; RECD C 
00001 BASE=REPCR+1 ;CORE TABLE BASE ADDRESS 
o00022 SRC=BASE “START OF INPUT CHAIN--NEXT RECV DONE 
000023 ERC=SRC+1 END OF INPUT CHAIN 
oo0024 RCLI=ERC+1 ‘RECEIVE LINK #1 
000031 RCL2=RCL1+5 ‘.. a: 
000036 RCL3=RCLO+5 ; * “ 43 
000043 RCLY=RCL3+5 
RCLS=RCL445 
000055 RCLB=RCLS+5 
000062 RCL7=RCLb+5 
000067 STC=RCL7+5 START OF OUTPUT CHAIN---NEXT TMT DONE 
000070 ETC=STC+1 END OF TRANSMIT: CHAIN 
000071 TMLIZETC+1 TRANSMIT LINK #1 
000077 TML2=TML1+6 .. °° " “#2 
000105 TML3=TML2+6 ; - “2 
900113 TML4=TML3+6 
000121 =TML4+ 
600127 TMLG=TMLS+6 
000135 =TML6 
000143 TMLS=TML7+6 
000151 T=TML8+6 TYPE FIELD 
000152 T=T+] ; SUBTYPE FIELD 
000153 ISP17=ST+1 :MSG BCKED IMAGE 
000154 IMGIO=ISP17+1 IMAGE OF BIT 1 OF SPIO 
Bie peuiciaitth ie & i 
000157 IMG1Y=IMG12+1 AGE OF 5P14 
BODIE ee eciest IMAGE OF SPLP 
BoDTES ie AB=IMG17+1 i yee TaeLee—- 
28 TYPE TABLE REP 
TYPSTT=TYPTAB+2 ;74 ” “ — START 
:75 " » STACK 


+ 
BC=TYPSTT+3 RECEIVE BYTE COUNT 
ISP11=BC+2 SPil IMAGE 
ISP12=ISP11+1  ;:SP12 IMAGE 
NC IN CONTROL CSR IMAGE 
000174 RTHRS=INCONS+1 :RECVY THRESHOLD LINK 


gees 8 
O000 Oo 
= o— be — 
NNNGO o 
wren £ 


Bana? Ma META 


909488 


MICROPROCESSOR MAIN cme Tee gti sie — 


;ALL LOCATIONS FROM 200 ON ARE NOT WRITTEN OUT DURING A TABLE UPDATE 
TABST=210 ; TABLE yevare STATE 
PRIST=TQGST+l eT STA 


NXTINT=240 ; I 
NXTSP=NXTINT+1 ;END OF INTERUPT CHAIN 
INTSTK=NXTSP+1 ;STACK OF INTERUPTS 
MMEND=400 ;MAIN MEMORY END 


EQ6 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-3 PAGE: 0069 
ODCHGH.MAC  O6-DEC-76 11:34 SCRATCH PAD ASSIGNMENTS 

467 .SBTTL SCRATCH PAD ASSIGNMENTS 

468 o90000 SPO0=0 ;SP0---SCRATCH REGISTER 

468 000001 SPiz1 i3p1-—-PORT STATUS WORD 

4? :BITO--INIT MODE 

472 sBIT1--S5C STB STATION SELECT(UNUSED) 

474 iBT TS--pLE RECEIVED EMIL WHILE NOT IN MATH MODE 

475 sBIT4-— INTERRUPT PENDING 

47 HBIT9--BO0¥ ho BE 

478 oo0002 SP2=2 P2---TRANSMIT STATE 

43g BoB05% apa=4 ie. coe, sTave POINTER 

481 ooodds SP5=5 oso & RECEIVE RODRESS 

483 00 07 P7=7 Blom ND TRARSOTT AOR Ore ss 

44 10 P10=10 : 1o--=t a STAT 

ue Blt0- “ih nue FE ie BRO S 

489 : Btra--f" RE His CONE e foLe 

489 BIT3--START RECE 

490 : BITY--CLEAR RET UEe ON END 

491 :BITS--START_MO 

492 ‘BIT6--HALF DUPLEX 

493 :BIT7=-0K TO 

434 000011 SPli=11 :SP11---R FIELD 

4gs 000012 gp 12=12 :SPl2---N FIELD 

ne Boobs So tarty tebteo “RECEIVE LINK IMAGE 

498 900015 SP1S=15 ;SP1S---TIMER ENTRY---NUMBER OF ONE SECOND TICKS 

499 900016 SP16=16 :SP16---POINTER TO TMT LINK COPY IN MAIN MEM 


$90 c00017 SP17=17 ;SP17---LAST MESSAGE ACKNOWLEDGED 


ee 


FO6 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-4 PAGE: 0070 
DDCHGH.MAC O6-DEC-76 11:34 INIT--INITIALIZATION ROUTINE 

$02 .SBTTL w{NIT-—INITIALIZATION ROUTINE 

503 :ZEROS MAIN 

504 s OOPS Mal WAITING G FOR RECEIVE DATA( BOOT?) 

ete ;WILL Ree T TONEY BASE FORMAT. ALL OTHERS WILL RETURN A PROCEDURE ERROR 
¢ 

598 aT INITIALIZATION --- THE HARDWARE CLEARS THE BR AND MAR 

503 011766 =11 

510 O11766 INIT:  §P BR, SELB, SPO ;CLEAR SPO 

t1) ooo000 MICPC=MICPC+1 

ch) 911766 063220 (MOVE! SPX! BR! SELB! SPO> 

S11 011770 SP BR, SELB, SP3 :PAGE ONE TRANSFER ADDRESS 

(1) 000001 MICPC=MICPC+1 

D) 011770 063223 (MOVE! SPX! BR! SELB! SP3> 

Sl2 011772 SP BR, SELB, SP17 CLEAR SP17 

(1) oocoo2 MICPC=MICPC+1 

a 011772 063237 «MOVE! SPX! BR! SELB! SP17> 

S13 011774 OUT BR, <SELA! OINCON> ;ZERO THE IN CONTROL CSR 

1) 000003 MICPC=MICPC+1 

1) 0:1774 061200 <MOVE! WROUTX! BR! <SELA! OINCON> > 

4 

Si4 O11776 OUT BR, <SELA! OOCON> :ZERO THE GUT CONTROL CSR 

C1) oo09004 MICPC=MICPC+1 

th) 011776 061202 (MOVE! WROUTX! BR! <SELA! 00CON > 

SiS 012000 sp IMM, 370, SP10 :WRITE 5 ONE BITS TO THE HIGH ORDER 

(1) 00005 MICPC=MICPC41 

i) 912000 903370 <MOVE ! SPX! IMM!370!SP10> 

(iJ 

S16 :BITS OF SPIO 

517 o1e0ce S$: SP BR, AA, SP10 :SHIFT SP1O0 LEFT SETTING CARRY THE 

(1) ocoo06 MICPC=MICPC+ 

iA) Ci2002 063130 «MOVE! SPX! BR! AA!SP1O> 

532 FIRST S TIMES THRU THE LCOP 

519 022004 © MEMINC BR RODC!SP3 WRITE A ONE TO THE FIRST 5 MEMORY 

(1) 000007 MICPC=MICP 

i) o1e004 076423 = 
y] 

520 sLOCATIONS AND ZERO THE REST 

E21 012006 SP BR, INCA, SPO INCREMENT COUNTER 

(1) 000010 MICPC=MICPC+1 

oe 012008 063060 <MOVE! SPX! BR! INCA! SPO> 

S32 012010 2 10$ SALL DONE 

(1) 000011 MICPC=MICPC+1 

cd) 912010 101413 < JUMP! ZCOND! < LOS-INIT&3000#4 ! < 10$-INIT8777/2>> 

\ 

S23 012012 ALWAYS SS :KEEP GOING 

(1) 999012 MICPC=MICPC+1 

(1) O12o12 19040¢ < JUMP! ALCOND! <S$-INIT&3000%#4> ! <S$-INIT87772> > 

iad 

S24 C12014 19$:  SPBR  IMM,1,SP1 :WRITE A 1 TO THE BR AND SPL 


2 EP Ee aR <n ngeeEe eee 


en 
tt 


ore 
—se 


_ + ae a 
o-< pop 


COUN es ee UV en er een rn one 
o-- b= b- PU b— & = b—- FL) bb bo 8 0-2 8 
wer et ee we ere ee es we Swe 


— — b(n) 


SENTERO OUD 8 8 SUD ok UD ere os 8 en on SUN eee UD ees 
oo (0 
we ee ee we we 


.sene 
b- +0 +0 +0 + Cd 0-0 (0) 
wesw ee OP es ee UT we er me 


012014 
012016 
012016 
012020 
012020 
012022 


012022 


C1e024 
012024 
Di2de6 
012026 
912030 
012030 
912032 
012032 
012034 
C12034 
012036 
012036 
Gic540 
012040 
Ol204e 
O12e04e 
C12044 


Ci2c44 
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000017 
900626 
000020 
062234 


000021 
016403 


000022 
002402 
000023 
057225 


oo00e4 
016406 


9009eS 
016407 


o0002E 
016401 


000027 
010 fa 


MACY11 27(1 
INIT--INITI 


006) 14-DEC-76 16:44 PAGE 6-5 
ALIZATION ROUTINE 


MICPC=MICPC+1 
«MOVE! SPBRX! IMM! 1!SP1> 


SP BR, SELB, SP11 sWRITE A 1 TO SPL 
MICPC=MICPC+1 
(MOVE ! SPX! BR! SELB!SP11> 


SP BR, SELB, SP12 ;WRITE A 1 TO SPl2 
MICPC=MICPC+1 
(MOVE! SPX! BR! SELB! SP12> 


IMM, TYPTAB ;POINT MAR TO TYPE TABLE 


LOMA 
MICPC=MICPC41 

-IF ION IMM, IMM 

«HOVE !LOMAR! IMM! <TYPTAB8377> > 
(MOVE! LOMAR! IMM! < TYPTAB> > 
END 


BRWRTE IMM, 226 sWRITE SYNC TC MEMORY 
MICPC=MICPC41 
<MOVE !WRTEBR! IMM! <226) > 


OUTPUT BR,SELB!SYNC | ;LOAD THE SYNC REGISTER 
MICPC=MICPC+1 
«MOVE! WROUT! BR! <SELB!SYNC> > 


MEMINC IMM,3 : REP 
MICPC=MICPC41 
<MOVE ! WRMEM! INCMAR! IMM! <3>> 
MEM IMM,2 ; NAK 
MICPC=MICPCH1 
(MOVE! WRMEM! IMM! <2>> 

MEMX! INCMAR, SELB, SP1S 


SP 
MICPC=MICPC+1 
«MOVE! SPX! MEMX! INCMAR! SELB! SPiS> 


MEMINC IMM,6 ; START 
MICPC=MICPC41 
<MOVE ! WRMEM! INCMAR! IMM! <6>> 


MEMINC _IMM,7 : STACK 
MICPC=MICPC41 
(MOVE! WRMEM! INCMAR! IMM! <7>> 
MEMINC IMM, 1 SACK 
MICPC=MICPC41 
<MOVE!WRMEM! INCMAR! IMM!<1>> 
IMM, TABST sPOINT TO TABLE UPDATE STATE 


LOMA 

MICPC=MICPC+1 

IF ION IMM It 7 
«ROY iLOMAR! IMM! <TABST8277>> 


;SET STARTING COUNT 


PRGE: 


0071 


HO6 
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BOSHGH.MAC  O6-DEC-76 11:34 INIT--INITIALIZATION ROUTINE 

1) «MOVE! LDMAR! IMM! <TABST> > 

a 900 ENDC 

537 12046 PSTATI 13 sINITIALIZE IT 

3) Ole046 MEMING IMM, <<I3-INIT877772>> 

(2) 000030 MICPC=MICPC41 

‘g) 012046 O16460 (MOVE! WRMEM! INCMAR! IMM! << 13-INIT8777/2>>> 

538 a1 950 PSTATI NIDLE2 -INITIALIZE PORT STATUS 

(1) 6120 MING IMM, <<NIDLE2-INIT&77772> $ 

(2) 000031 MICPC=MICPC+1 

@) 012050 016533 <MOVE ! WRMEM! INCMAR! IMM! < <NIDLE2-INIT8777 72> >> 

\ 

539 o1205e2 LOMA —_—sIMM, STC ;LOAD ADDRESS OF LAST TMT CHAIN 

(1) 009032 MICPC=MICPC41 

(1) oo: : N IMM, IMM 

ee 012952 010967 HOVE !LDMAR! IH! «STC8377> > 

(1) (MOVE! LDMAR! IMM! <STC>> 

ih) 900 .ENDC 

4 

suo o1e2osy MEMINC IMM, TML1 :STORE ADDRESS OF FIRST TMT LINK 

(1) 090033 MICPC=MICPCH1 

cf) 912054 16471 <MOVE! WRMEM! INCMAR! IMM! <TML1>> 

la 

S41 012056 MEM IMM, TML1 

(1) 000034 MICPC=MICPC41 

(1) 012056 o0e471 (MOVE! WRMEM! IMM! <TMLI>> 

S42 012060 SP MEMX, SELB, SP16 s INITIALIZE LAST XMIT POINTER 

(1) 900035 MICPC=MICPC+] 

iL, 012060 043236 «MOVE! SPX! MEMX! SELB! SP16> 

S43 Ole0be LOMA _ IMM, SRC sLOAD ADDRESS OF LAST RECV CHAIN 

1) 000036 MICPC=MICPCH1 

(1) 001 .IF IDN IMM, IMM 

1) C1l2cs2 010922 HOVE! LOMAR! Tht «SRC8377> 

(1) (MOVE! LOMAR! IMM! <SRC>> 

(dh) 000 .ENDC 

c4u4 o12064 MEMINC _IMM,RCL1 :SET UP ADDRESS OF FIRST RECY LINK 

(1) gon937 MI ent ia 

wD) 012064 16424 (MOVE! WRMEM! INCMAR! IMM! <RCL1>> 

(J) 

cus 012066 MEM IMM, RCL1 

(1) po0040 MICPC=MICPC+1 

ee 012066 o002424 (MOVE! WRMEM! IMM! <RCL1>> 

S46 012070 SP MEMX, SELB, SP14 

(1) 000041 MICPC=MICPC+] 

wD 012070 043234 (MOVE! SPX! MEMX! SELB! SP14> 

(}) 

c47 012972 Lone IMM, NXTINT ;ADDRESS OF NEXT INTERRUPT POINTER TO MAR 

C1) occo4e MICPC=MICPC41 

h3 01 IF IDN IMM, IMM 


ye DDCMP PROTOCOL bs th tapeen MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-7 PAGE: 


DCHGH.MAC  O6-DEC-76 11:34 INIT=-INITIALIZATION ROUTINE 
1) Q12072 o10240 «MOVE! LDMAR! IMM! <NXTINT8377>> 
La ” 
oh) <MOVE! LOMAR! IMM! <NXTINT> > 
iL) ooo .ENDC 
sug 912074 MEMINC _IMM, INTSTK s INITIALIZE NEXT INTERRUPT POINTER 
C1) 900043 MICPC=MICPCH1 
1) 012074 16642 «MOVE! WRMEM! INCMAR! IMM! < INTSTK> > 
4a 
549 012076 MEM IMM, INTSTK s INITIALIZE INSERTION POINTER 
1) 000044 MICPC=MICPC41 
(1) 012076 od0264e <MOVE ! WRMEM! IMM! <INTSTK> > 
ed) 012190 BRWRTE IMM, 200 ;WRITE THE RUN BIT TO THE BR 
(13 oo0004s MICPC=MICPC41 
D 0:2100 900600 CHOVE! MRTEBR! IMM! “200 
S51 012192 UT BR, «SELB! OMAIN> ;WRITE THE RUN BIT TO MAINT CSR 
(1) osoo4e MICPC=MICPC+1 
(1) O12102 061221 (MOVE! WROUTX! BR! «SELB! OMAIN> > 
Se :FALL INTO IDLE LOOP 
553 001 .IF NOF SLOW 
554 012104 ALWAYS TEOMe 
(1) 909047 MICPC=MICPC+1 
iL) 912104 110740 < JUMP! ALCOND! < TEOM2-INIT&3000%4> ! < TEOM2-INIT8777 -2>> 
css 
S56 012106 RExIT: &p BR, SELB, SP3 
(1) ocooso MICPC=MICPC+1 
ch) 512106 963223 «MOVE! SPX!BR! SELB! SP3> 
Lea 
557 oco -ENDC 


JO6 
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DDCHGH.MAC  O6-DEC-76 11:34 IDLE--PROGRAM IDLE LOOP 
559 -SBTTL  IDLE--PROGRAM IDLE LOOP 
at :DI Ae ee Fo 8 PROPRIATE SERVICE ROUTINES 
S62 ;USES STATE POINTERS FOR TMT,RCV,CSR ACTIVITY 
ei 012110 IDLE: BRWRTE BR, <SELA!SP10> ;READ TRANSMIT STATUS WORD FROM SP1O TO BR 
990051 MICPC=MICPC+1 
012110 960610 (MOVE! WRTEBR! BR! <SELA!SP10>> 
Ole112 BRI TMTDA IF DATA TO SEND-- BRANCH 
ooo0se2 MICPC=MICPC+1 
O12112 112400 < JUMP! BRICON! < TMTDA-INIT&3000%4> ! < THTDA-INIT&77772>> 
012114 an BRO : THTOA ;IF DATA TO SEND-- BRANCH 
012114 reat Ait THASEONE cTHTDA-INIT&3000%4> ! <TMTDA-INIT8777/2) > 
001 VIF DF $LOW 
ALwaYS TI 
ae XEXIT: SP BR, SELB, SP2 
Oi2116 Il: BRWRTE Bus RCVCON ;READ LINE UNIT RECEIVE CONTROL WORD 
ooocs4 MICPC=MICPC+1 
012116 O20640 (MOVE! WRTEBR! IBUS! <RCVCON> > 
012120 .BRY —_BR, SELA, SP3! PAGE] ;BRANCH BASED UPON RECV STATE 
ooooss MICPC=MICPC+1 
012120 167203 <JUMP! BRYCON!BR!SELA!SP3! PAGE!» 


me scele seae R cese  e e , en ne RN oe 0 > oe - Oe OOO 
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012122 12: LOMA —_IMM, TABST ;POINT TO TABLE UPDATE STATE 
0000s NICPCSMICCH 
012122 010210 «hove! Loman! ifs <1ABS78377>> 
<MOVE!LDMAR! IMM! <TABST> > 
000 .ENDC 
012124 .ALWAY _MEMX, SELB,O 
000057 MICPC=MICPC+1 
012124 140620 < JUMP! ALCOND! MEMX! SELB! 0> 
meee = IF NOF SLOW 
012126 7 STATE TNTA+2 :GET IDLE TRANSMIT STATE + 1 
o00060 MICPG=MICPC+1 
Gi2126 900404 <MOVE! WRTEBR! IMM! <TMTA+2-INIT&777/2>> 
012130 : Nee ma: SUB, SPe ;SUBTRACT FROM CURRENT STATE 
012130 ppaoes ‘ rye 
012132 c TMTDA ;NON-IDLE STATE 
oo006e2 MICPC=MICPC+1 
012:32 111000 < JUMP! CCOND! < THTDA-INIT&3000#4> ! < TMTDA-INIT877772> > 
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DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 1-DEC-76 16:44 PAGE 6-9 PAGE: 0075 
DDCHGH.MAC O6-DEC-76 11:34 IDLE--PROGRAM IDLE LOOP 
S82 012134 IDLEO: SPBR —_IBUS,UBBR,SPO ; TIMER EXPIRES? 
(1) 000063 MICPC=MICPC+ 
(1) 012134 123620 <MOVE! SPBRX! IBUS! UBBR! SPO> 
S83 012136 BRY TIMSRV 
(1) 000064 MICPC=MICPC+1 
iD) 012136 113255 < JUMP! BRYCON! < TIMSRV-INIT&3000#4> ! <TIMSRV-INIT8777/2> > 
584 012140 SP 1BUS RCVCON, SPO READ THE RECEIVE CONTROL REGISTER 
(1) 000065 MICPC=MICPC+] 
) 012140 023240 «MOVE! SPX! IBUS! RCVCON! SPO> 
585 012142 BRWRTE AA!SPO sSHIFT IT LEFT 
(1) 000066 MICPC=MICPC+1 
1) O12142 960520 (MOVE! WRTEBR! BR! <AA!SPO> > 
586 012144 BR? Il sRECEIVE ACTIVE, DON’T DO PCRT STATUS 
(1) 000067 MICPC=MICPC+1 
1) 012144 103454 < JUMP! BR7CON! <I1-INIT&3000#4> ! <I1-INIT&77772> > | 
S87 012146 LDMA _ IMM. PRTST sADDRESS PORT STATE 
C1) 000070 MICPC=MICPCH1 
(1) 1 IF ION IMM, IM 
a) O12146 010211 <HOVE!LOMAR! IMM! <PRTST8377> 
(1) <MOVE! LOMAR! IMM! <PRTST> > 
(1) 000 . END 
S88 012150 -ALWAY MEMX, SELB,O s INDEX 
(1) 900071 MICPC=MICPC+] 
ib) 912150 140620 < JUMP! ALCOND! MEMX! SELB! 0> 
\ 


LO6 


OMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-10 PAGE: 0076 
ODCHGH. MAC 1:34 BA 


HGH 06-DEC-76 | SSRV---- BASE SERVICE ROUTINE 
90 ,S27TL BASSRV---- BASE SERVICE ROUTINE 

9! 12152 BASSRV: PSTATE NIDLE2 

(1) 612152 MEM IMM, <<NIDLE2-INIT&77772) > 

(2) 000072 MICPC=MICPC41 

ig) 012152 002533 (MOVE! WRMEM! IMM! <<NIDLE2-INIT8777/2> >> 
S92 012154 LDMA —_IMM, BASE ;CLEAR TO MAR SO IT POINTS TO BASE POINT 
(1) 000073 MICPC=MICPC+1 

(1) 001 IF IDN IMM, Iém 

() 012154 010017 (MOVE !LDMAR! IM! <BASEB377> 

(1) (MOVE! LDMAR! IMM! <BASE> > 

(1) 000 . ENOC 
593 012156 MEMINC IBUS, PORT READ CSR4 

(1) 000074 MICPC=MICPC+i 

1) 012156 136500 (MOVE! WRMEM! INCMAR! IBUS! <PORT1>> 
oH 012160 ; MENINC I S| PORTE :READ CSRS 

(1) 012160 resets CHSVE? is lenge tee oentans 
S95 012162 MEM IBUS, PORTY 

(1) 000076 MICPC=MICPC+i 

(1) 012162 122560 (MOVE! WRMEM! IBUS! <PORT4 > 
S96 012164 SP IBUS, INCON, SPO sREAD INPUT CONTROL CSR 
(1) 000077 MICPC=MICPC+ 

(1) 012164 123000 <MOVE ! SPX! TBUS! INCON! SPO> 
97 o1ziee BRURTE Int, 100 :CLEAR THE BR 

| = 

(1) D1216€ pepe oe CASUETARTEGRE IMM! <100>> 
598 012170 OUT BR, <AANDB! OINCON> ;CLEAR THE INCONTROL CSR 
(1) 000101 MICPC=MICPC+1 

(1) 012170 O61260 <MOVE ! WROUTX! BR! <AANDB! OINCON> > 
S399 012172 OUTPUT IMM, <120!0MODEM> ;MASK FOR HDX AND DTR 
(1) 000102 MICPC=MICPC#+1 

(1) 012172 002133 (MOVE! WROUT! IMM! <120!OMODEM > 
600 012174 BRWRTE MEMX, SELB READ SEL6 

(1) 000103 MICPC=MICPC+i 

(1) 012174 O40620 (MOVE! WRTEBR! MEMX! <SELB>> 
601 012176 BRY RESUME IF SET RESUME 

(i) 000104 MICPC=MICPC+1 

(13 012176 103113 < JUMP! BRYCON! <RESUME-INIT83000%4> ! <RESUME-INIT877772> > 
602 912200 Lona zea T ;LOAD ADDRESS OF TYPE FIELD 
(1) 000105 MICPC=MICPC41 

(1) 001 .IF ION IMM, IMM 

1) 012200 o10151 «HOVE! LOMAR! IMM! 183779 

1) <MOVE! LDMAR! IMM! <T>> 


tH, DDCMP PROTOCOL aes feel MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-11 ' PAGE: 0077 


HGH.MAC O6-DEC-76 11:34 BASSRV---- BASE SERVICE ROUTINE 
( 1) 000 .ENDC 

01 “WRITE START TYPE TO MEMORY 
6 — 000106 RYcPc Cr bbe cae ‘ 
ch) 012202 016406 VE!WRMEM! INCMAR! IMM! <6) > 

4 012204 MEM WRITE SELECT AND FINAL TO MEMORY 
(1) 000107 MiCPCeMICPCST 
(1) 012204 002700 <MOVE ! WRMEM! IMM! <300)> 
605 012206 Sp BR, DECA, SP1 ;TURN OFF INIT MODE 
(1) 000110 MICPC=MICPC+1 
(1) 012206 063161 «MOVE! SPX! BR! DECA! SP1> 
B06 012210 , BSI: BRURTE IMM 241 SET OK TO SEND,STARTMODE AND UNNUM PENDING 
ue z ' 

1} ouzei0 wae at od 
607 Ol2212 ALWAYS SAI 
(1) 000112 MICPC=MICPC+1 
. 012212 110737 < JUMP! ALCOND! <SA3-INIT&3000#4> ! <SA3-INIT&777/2>> 

012214 ‘RESUME: SP IMM, SP4,4 ;SET UP SP4 FOR COUNTING NPRS 
(1) 000113 MICPC=MICPC+1 
(1) 012214 603004 <MOVE! SPX! IMM! SP4!4> 
699 012216 SP BR, INCA, SP10 ;SET UNNUMB MESSAGE PENDING TO 
(1) 000114 MICPC=MICPC+1 
(1) 012216 063070 «MOVE ! SPX! BR! INCA! SP10> 
610 ; TRICK TRANSMITTER CODE 
611 ol2220 LOMA _IMM, BASE “ADDRESS BASE TABLE ADDRESS 
(1) 000115 MICPC=MICPC+1 
(1) 001 .IF ION IMM, IMM 
(1) 012220 010017 <MOVE ! LDMAR! IMM! <BASE&377>> 
(1) (MOVE! LDMAR! IMM! <BASE>> 
(1) 000 .ENOC 
ble Ol222e2 STATE FUDGE ;SET TMTR STATE TO ENTER TABLE UPDATE 
(1) 000116 MICPC=NICEC#| 
(1) Ql2222 000743 «. ‘- CROVEURTEBR? IMM! cFLOGE- -INIT8777/2>> 
613 Ole2e4 ; T ;GO SET UP MXT BITS AND ADRESS OF BASE FOR NPRS 
(1) 117 nice cemcpe i 
(1) 012224 110465 OND! < TBO-INIT&3000%4> ! <TBO-INIT&777/2>> 
614 Ol2226 BSe2: IMM, IMG1O 
(1) 000120 RICPoSHICPCH 
(1) 001 «Ae Rove ton ' 
( 1) 012226 010154 LDMAR! hr! <INGLO8377>> 
(1) GHOVE!LOMAR! IMM! <IMG1O>> 
(1) 000 .ENDC 
615 012230 SP MEMX! INCMAR, AORB, SP10 sRESTORE BIT 1 OF SPIO 
(15 000121 MICPC=MICPC+i 
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11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) _14-DEC- 6:44 PAGE 6-12 PAGE: 0078 
HGH.MAC  O06-DEC-76 11:34 BASSRV =o phe st RVERE RBur thé 
(1) 012230 057310 <MOVE! SPX! MEMX! INCMAR! AORB! SP10> 
ble 012232 : eee NENX? INCHAR, , SELB, SP11 RESTORE SP11 
1) 012232 goose RigPee ST Ct)  amemen geapens 
4 
617 012234 ae “ NENX! INCHAR, , SELB, SP12 RESTORE SP12 
a) 012234 poois3 ASVET OX? HEFX! INCMAR! SELB! SP12> 
618 012236 SP MEMX! INCMAR, SELB, SP14 RESTORE SP14 
(1) 000124 MICPC=N cPC+1 
(1) 012236 057234 (MOVE! SPX! MEMX! INCMAR! SELB! SP14> / 
619 o12240 SP MEMX! INCMAR, SELB, SP16 RESTORE SP16 
(1) 000125 MICPC=MICPC+1 
(1) 012240 057236 CHOVE SPX! MEMX! INCMAR! SELB! SP16> 
620 ol12242 SP MEMX, SELB, SP17 + RESTORE SP17 
(1) 000126 MIcPC=mIcPCc+l 
(1) 012242 043237 <MOVE! SPX! MEMX! SELB! SP17> 
621 O12244 BR ADF DECA, SP10 TURN OFF UNNUM MESSAGE PENDING AND 
(1) 000127 RICPCSMIEE 
(1) 012244 063170 HOVE! SPX! BR! DECA! SP10) 
bee ; ZERO THE BRG 
012246 SP BR DECA, SP1 ‘CLEAR INIT MODE 
(1) 000130 MICPC=MICP 
Ch) 01224 063161 CHOVE! SPX! BR! DECA! SPL 
624 o12250 BRWRTE IMM, 200 ;SET OK TO SEND 
(1) 000131 MICPC=MICPCt1 
(1) 012250 000600 (MOVE! WRTEBR! IMM! <200>> 
625 ol2252 , 


ALWAYS SA3 
000132 MICPC=MICPC+1 
Cleese 110737 <« JUMP! ALCOND! <SA3-INIT&3000#4> ! <SA3-INIT8&77772>> 


rn al 
oe 
— 7 


pre DDCMP PROTOCOL IMPLEMENTATION 


CHGH.MAC O6-DEC-76 11:34 
627 

628 012254 

(1) 000133 
+t 012254 060601 
629 001 
630 012256 

(1) 000134 
+ 012256 103141 
631 000 
632 001 
a 
635 012260 

(1) 000135 
si 012260 123400 
636 Ol2262 

(1) 000136 
i Ole2b2 001620 
637 Oi2264 

(1) 000137 
tT} Ol2e6% 103146 
638 

639 

640 001 
641 012266 

(1) 900140 
+4 Olee66 100451 
b4e 000 
643 012270 

644 001 
645 

646 

647 

648 

649 

650 

651 

652 

653 

6S4 

6ss 

656 

657 

6SE 

659 

660 

661 

t&e 000 
£63 001 
664 012270 


MACY11 27(1006) 


BO? 


14-DEC-76 16:44 PAGE 6-13 PAGE: 


NIDLE@---NO CSR ACTIVITY STATE 


NIDLE2: BRWRTE BR, SELA 


.SBTTL NIDLE2—--NO CSR ACTIVITY STATE 

'SP} ;READ PORT STATUS WORD 
MICPC=MICPC+1 
CMOVE WR TEBR! BR! <SELA!SP1>> 


BR non NIOLES ; INTERRUPT PENDING?---BRANCH 
< JUMP! BRYCON! <NIDLES-INIT&3000#4> ! <NIDLES-INIT8777/2) > 

.ENDC 

-IF DF $LOW 

BRY OUTINT 

S IBUS, INCON, SPO 


SPB 
MICPC=MICPC+] 
<MOVE! SPBRX! IBUS! INCON! SPO> 


;READ INPUT CONTROL CSR 


BRSHF T ;SHIFT IT RIGHT 
MICPC=MICPC+1 

(MOVE! SHF TBR! WRTEBR! SELB> 

BRY INWAT1 ;IF RQI SET -- BRANCH 
MICPC=M ICPC+1 

«JUMP! BRYCON? < INWAT1-INIT&3090#4> ! < INWAT1-INIT&77772>> 


;TO RE-READ THE IN CNTRL REGISTER TO AVOID 
;A RACE IN MICRO-P READ/UNIBUS WRITE 


F NDF SLOW 
atuays IDLE 
MICPC=MICPC+1 
< JUMP! ALCOND! < IDLE-INIT&3000%4> ! < IDLE-INIT&777/2>> 
-ENDC 
NIDLEE: 
.IF DF SLOW 
10$:  SPBR  IBUS,MODEM,SPO ;READ MODEM CONTRCL CSR 
BRWRTE BR, AA'SPO :SHIFT IT LEFT 
BRY SETDSR IF DSR SET, CLEAR FLAG 
BRURTE BR, SELA!SP10 "READ LINE STATUS WORD 
BR4Y IDLE START MODE 
BRWRTE ®8R,AA!SPI *READ PORT STATUS WORD 
BR1 IDLE NIT MODE 
BR? IDLE ‘DISCONNECT ERROR ALREADY SENT 
SPBR  - IBUS,MAIN,SPO ;READ THE MAINT REGISTER 
BRWRTE BR, ADD!SPO sSHIFT LEFT 
RY IDLE - EXIT 
BRWRTE IMM, 100 ARI DISCONNECT ERROR 
P BR, AORB, SP1 “FLAG ERROR RECORDED 
BLUAYS RRXX *MAKE A CONTROL 
SETDSR: BRWRTE IMM So7 ‘CLEAR DISCONNEC UT RROR FLAG 
LUAYS CLRIOL 


NIDLES: 


IF NOF $LOW 
PSTATE OUTINT :SET STATE FOR INTERRUPT PROCESSING 
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OMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-14 PAGE: 080 
ODCHGH.MAC O6-DEC-76 11:34 NIDLE2---NO CSR ACTIVITY STATE 

Wy) 012270 MEM IMM, <<OUTINT-INIT877772> > 

(2) 000141 MICPC=MICPC41 

ig) 012270 002614 <MOVE! WRMEM! IMM! < <OUTINT-INIT8777/2> >> 

s65 012272 ALWAYS IDLE 

() 900142 MICPC=MICPC+! 

2 012272 100451 < JUMP! ALCOND! < IDLE-INIT&3000#4 ! < IDLE-INIT877772>> 

a3 oe -ENDC 


¢ 


000157 MICPC=MICPC+1 
012324 001620 «MOVE! SHF TBR! WRTEBR! SELG> 


or) 
OF 
DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 1L4-DEC-76 16:44 PAGE 6-15 PAGE: 9081 
DDCHGH.MAC O6-DEC-76 11:34 INWAIT---WAIT FOR RQI TO CLEAR 
.SBTTL INWAIT---WAIT FOR RQI TO CLEAR 
ee: 012274 INWAIT: epBR MUS INCON, SPO READ INPUT CONTROL CSR 
(1) 000143 MICPC=mIcPc+h 
(1) 012274 123400 «MOVE! SPBRX! IBUS! INCON! SPO> 
670 012276 be BRWRTE BR, <AA!SPO> ;SHIFT IT LEFT 
(1) 012276 Beate MESO T WAT TBR! CAA! SPO) > 
$71 012300 BR? NILES ; INTERRUPT ENABLE HAS BEEN SET 
(1) 000145 MICPC=MICPC+1 
(1) 012300 103550 < JUMP! BR7CON! <NIDLE3-INIT&3000%4> ! <NIDLE3-INIT8777/2> > 
672 
$73 012302 INWAT1: SPBR _IBUS, INCON,SPO ;READ THE INPUT CONTROL CSR 
(1) 000146 MICPC=MICPC+] 
(1) 012302 123400 <MOVE! SPBRX! IBUS! INCON! SPO> 
Br 012304 a BR wane? READY IN STILL SET 
) 012304 103657 < JUMP! BR7CON! < INWAT2-INIT&3000%#4> ! < INWAT2-INIT8777/2) > 
675 012306 NIDLE3: PSTATE INWATL “UPDATE STATE TO INPUT 
(1) 012306 a +e . Int, ¢¢INMAT1~INIT8777/2>5 
8) 012306 002546 (MOVE! 5 fem? << INWAT1-INIT8777/2> >> 
676 012310 BRWRTE BR,AA!SPO ;SHIFT CSR LEFT 
(1) 000151 MICPC=MICPC+1 
1) 012310 060520 (MOVE! WRTEBR! BR! <AA!SPO> > 
Hh OE soos Soca te 
: 012312 117460 < JUMP! BR7CON! < ININT-INIT&3000#4> ! < ININT-INIT877772) > 
678 012314 PSTATE INWAIT “UPDATE STATE POINTER TO NC INTERRUPT GENERATED 
(1) 012314 MEM IMM, <<INWAIT-INIT877772> 5 
(3) 000153 MICPC=MICPC41 
(2) 012314 002543 <MOVE ! WRMEM! IMM! << INWAIT-INIT877772>>> 
679 012316 NIDLEY: BRWRTE IMM, 200 
(1) 000154 MICPC=MICPC41 
(1) 012316 o00600 (MOVE! WRTEBR! IMM! <200> > 
680 012320 OUT BR, AORB! OINCON ;SET THE RDY! 
(1) 000155 MICPC=MICPC+1 
(1) 012320 061300 «MOVE! WROUTX! BR! <AORB! OINCON> > 
, : 
CP) ONesee onise AYCECMIGPCel 
1) 012322 100451 < JUMP! AL COND! < IDLE-INIT&3000%4> ! < IDLE-INIT8777/2>> 
682 . 
683 012324 INWAT2: BRSHFT ;SHIFT THE BR RIGHT 
1) 
(1) 


— 


~- 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-16 PAGE: 9082 
DDCHGH. MAC O6-DEC-76 11:34 INWAIT---WAIT FOR RQI TO CLEAR 


(1) 
684 00i .IF OF $LOW 
68S BRY NIDLE6 :RQI SET--- GO AWAY 
686 000 .ENDC 
697 001 .IF NOF SLOW 
688 012326 BRY IDLE 
1) 900160 MICPC=MICPC+1 
; 012326 103051 < JUMP! BRYCON! < IDLE-INIT&3000%4> ! < IDLE-INIT8&777/2>> 
689 912330 PSTATE INSRV ;SET NEXT STATE TO INPUT SERVICE 
(1) Ol M IMM, << INSRV-INIT8777/2> > 
(2) 000161 MICPC=MICPC4+1 
(2) 012330 002563 (MOVE! WRMEM! IMM! << INSRV-INIT877772) >> 
690 012332 ALWAYS IDLE 
(i) 000162 MICPC=MICPC4+1 
(1) 012332 100451 < JUMP! ALCOND! < IDLE-INIT83000%4> ! < IDLE-INIT&777/2 > 
651 000 .ENDC 
692 012334 INSRV: SPBR __IBUS, INCON,SPO :READ THE INPUT CONTROL CSR 
(i) 000163 MICPC=MICPC+] 
1) 012334 123400 <MOVE! SPBRX! IBUS! INCON! SPO> 
693 012336 BRI 30$ :--SENSE OR BASE 
(1) 000164 MICPC=MICPC+1 
(1) 012336 102600 < JUMP! BRICON! <30$-INIT8&3000#4> ! <30$-INIT8777/2> > 
694 012340 BRO 10$ sCNTL I 
(1) 000165 MICPC=MICPC+1 
() 012340 102172 < JUMP! BROCON! < 10$-INIT&3000%#4> ! < 10$-INIT877772>> 
695 o12342 BRSHFT ;MUST BE BA/CC-SHIFT FOR IN OR OUT 
(i) 000166 MICPC=MICPC+1 
(1) 012342 001620 (MOVE ! SHF TBR! WRTEBR! SELB> 
696 012344 BRI 1S$ 
(1) 000167 MICPC=MICPC+1 
(1) 012344 102574 < JUMP! BRICON! < 1S$-INIT&3000%4> ! <15$-INIT8777/2>> | 
697 012346 PSTATE TBASRV : TRANSMITTER | 
(1) Ol2346 M IMM, <<TBASRV-INIT877772> 5 
(2) 000170 MICPC=MICPC41 
(2) 012346 002700 - (MOVE ! WRMEM! IMM! << TBASRV-INIT&777/2>>> 
698 012350 ALWAYS 20S 
(1) 000171 MICPC=MICPC+1 
(1) 012350 100575 < JUMP! ALCOND! <20$-INIT&3000*4> ! <20$-INIT8777/2>> 

; 
699 0123S2 10$:  PSTATE CTLSRV 
(1) 012352 MEM IMM. <<CTLSRV-INIT8777/2>> 
(2) 000172 MICPC=MICPC41 
(2) 012352 O02657 (MOVE ! WRMEM! IMM! < <CTLSRV-INIT8777/2> >> 
700 012354 ALWAYS 20% 
(1) 000173 MICPC=MICPC+1 
(1) 012354 100575 < JUMP! ALCOND! <20$-INIT83000#4> ! <20$-INIT8777/2>> 
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012362 
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006174 
002721 


000175 
060601 


000176 
102201 


000177 
100451 


009200 
102211 


000201 
002533 


o0020e 
ocoso0 
000263 
061260 


— 
010177 


900 


000205 
016402 


00020& 
002400 


000207 
042233 
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MACY11 27(1906) I14-DEC-76 16:44 PAGE 6-17 PAGE: 
INWAIT---WAIT FOR RQI TO CLEAR 


158: PSTATE RBASRV 
IMM, <<RBASRV-INIT&77772>> 
MICPC=MICPC41 
«MOVE ! WRMEM! IMM! < <RBASRV-INIT&777/2>>> 


20$:  BRWRTE BR,SELA!SP1 s INIT MODE 
MICPC=MICPC+1 
«MOVE! WRTEBR! BR! <SELA!SP1>> 


BRO PROCER ;IF INIT MODE--ERROR 
MICPC=MICPC+1 

<« JUMP! BROCON! <«PROCER-INIT&3000#4> ! <PROCER-INIT&77772>> 
ALWAYS IDLE 

MICPC=MICPC+1 

<« JUMP! ALCOND! < IDLE-INITS3000%4> ! < IDLE-INIT8&77772>> 

te “ pees ; IF BASE---PROCESS 
FMB? BROCON! < INSRV1-INIT&3000#4> ! < INSRV1-INIT8777/2> 


PROCER: PSTATE NIDLE2 ;RESET PORT STATUS 
M IMM, «<NIDLE2-INIT&77772>> 
MICPC=MICPC41 
(MOVE! WRMEM! IMM! <<NIDLE2-INIT877772> >> 


BRWRTE IMM, 100 ;CLEAR INPUT CONTROL CSR 
MICPC=MICPC41 

«MOVE! WRTEBR! IMM! < 100>> 

OUT BR, AANDB! OINCON :; 

MICPC=MICPC+1 

<MOVE ! WROUTX! BR! <AANDB! OINCON> > 


Lone ion <« (RTHRS+3> > ;ADDRESS ERROR LINK 
MICPC=MICPC41 


.IF ION IMM, IMM 
CHOVE !LDMAR! IMM! << RTHRS+3> 8377> 
(HOVE! LOMAR! IMM! < <RTHRS#3> > 

. END 


30$: 


MEMINC IMM,2 
MICPC=MICPC41 
<MOVE ! WRMEM! INCMAR! IMM! <2>> 


MEM Jim. 
MICPC=MICPCSi 


(MOVE! WRMEM! IMM! <Q>> 
OUTPUT MEN SELB! OMODEM ;CLEAR DATA TERMINAL READY 
MICPC=MICPC+1 

<MOVE ! WROUT ! MEMX! < SELB! OMODEM> > 

ALWAYS RCEXX :POST THE ERROR - FATAL 


DMC11 DDCMP PROTOCOL Le 
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000210 
114524 
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07 

MACY11 27(1006) I14-DEC-76 16:44 PAGE 6-18 PEGE: 
INWAIT---WAIT FOR RQI TO CLEAR 


INSRV1: 


ng 
TAL COND! (RCEXX-INITS3O00#4> # <RCEXX=INIT8777/2) > 


BRWRTE BR,SELA!SP1 sINIT MODE? 
MICPC=MICPC+1 
(MOVE! WRTEBR! BR! <SELA!'SP1>> 


BRO ast 

MICPC=MICPC+1 

«JUMP! BROCON! <BASSRV-INIT&3000#4> ! <BASSRV-INIT877772> > 
ALWAYS aT ;NO - PROCEDURE ERROR 


MICPC=MICPC+1 
<« JUMP! ALCOND! < PROCER-INITS32000#4> ! <PROCER-INIT877772> > 


oce4 


HO?’ 


ll oDcHP PROTOCOL IMPLEMENTATION macy 27(1006) 14-DEC-76 16:44 PAGE 6-19 PAGE: 
OSHRH ORS ‘ 06-DEC-76 11:34 OUTINT---SET UP OUTPUT TARERRUET [RDYO] 
718 .SBTTL OUTINT---SET UP OUTPUT INTERRUPT [RDYO] 
719 o1e416 OUTINT: 
720 001 : SLOW 
721 012416 PSTATE PINTe 
(1) O1e416 MEM IMM, <<PINT2-INIT&77772) > 
(2) 000214 MICPC=MICPC41 
ig) 012416 002631 (MOVE! WRMEM! IMM! <<PINT2-INIT&77772>>> 
722 0° : é' 
723 901 “IF OF SLOW 
724 PSTATE OUTWAIT PORT STATUS TO WAITING FOR GuT 
725 G00 .ENDC 
726 ; COMPLETION 
727 012420 LOMA —_ IMM, NXTINT ;ADDRESS OF NEXT INTERRUPT POINTER 
(1) 000215 MICPC=MICPC41 
(1) 1 IF IDN IMM, IMM : 
(1) 012420 010240 «HOVE !LDMAR! IMM <NXTINT8377> 
(1) <MOVE! LDMAR! IMM! <NXTINT> > 
(1) 900 .ENDC 
728 ole422 LOMA -MEMX,SELB sNEXT INTERRUPT 
(1) 000216 MICPCEMICEC+l 
(i) 001 IDN MEMX, IMM 
(1) (MOVE !LOMAR! fn «SELB8377>> 
(1) Ol2422 oso220 <MOVE ! LDMAR! MEMX! <SELB> > 
(1) 900 .ENDC 
729 012424 SP 1BUS OCON, SPO READ THE OUTPUT CONTROL CSR 
(1) 900217 MICP =nrC pce 
ch) 012424 123040 «MO X! TBUS! OCON! SPO> 
730 012426 OUT <MEMX! INCMAR> , <AORB! OOCON> :WRITE THE OUT CONTROL CSR 
(1) 900220 MICPC=MICPC+1 
1) Cle426 O5530e2 (MOVE! WROUTX! MEMX! INCMAR! <AORB! OOCON> > 
731 012420 LOMA §-MEMX, SELB : ADDRESS LINK 
(1) 900221 MICPC= nICeCHl 
(1) 001 AE TDN MEMX. I 
(1) MOVE!L NOMBR: tet? <SELB8377>> 
J 
(1) 012430 oSc220 (MOVE! LDMAR! MEMX! <SELB>> 
(1) 909 .ENDC 
732 012432 BRWRTE <BRY INCHAR> , <AR!SPO> :KICK PAST LINK STATUS BYTE 
ee oo0222 MICPC=MICP. 
se o12432 O74520 MES OE THRTEGR!BR! INCMAR! «AA! SPO> 
733 SHIFT CSRO IMAGE LEFT 
734 *D0 NOT CHANGE BR UNTIL SR7¥#% 
735 012434 OUT <«MEMX! INCMARD , (SELB! OPORTL> “WRITE LOW BYTE OF BA TO CSR 
1) oo0222 MICPC=MICPC+1 
ee 012434 O552c4 TEE TIROUTX?MEMX? INCMAR! <SELB! OPORT1>> 
,a/ 
736 012436 OUT <MEMX! INCMAR> , «SELB! OPORT2> ;WRITE HIGH BYTE OF BA TO CSR 
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0124S6 
012460 
012460 
012462 
Ole46e2 
012464 
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o00ee5 
055227 


000226 
OSS2e6 


000227 
103787 
001 


000230 
100451 


000231 
002652 


900 
001 


059 
000232 
001 
010240 
000 


000233 
043220 


pogeas 
2642 


000235 
000776 


000236 
960360 


mer 


MACY1 


OUTINT---S 


PINTe: 


PINTe: 


10? 
OUTPU UPT {RDYO] 


MICPC=MICPC+1 
«MOVE ! WROUTX! MEMX! INCMAR! «SELB! OPORT2> > 


OUT <«MEMX! INCMAR> , «SELB! OPCRT4> ;WRITE HIGH BYTE CF COUNT TO CSR 
See Tel ernt INCHAR! <SELB!OPORT'> > 

— “—e , ‘SELB! CPORTS> ;WRITE THE LOW BYTE OF CCUNT 
«MOVE! WROUTX! MEMX! INCMAR! «SELB! OPCRT3> > 


; ##HHERE IS BR? 
a : INTERPUPT ENABLE IS SET 


TCPC+1 
JUMP! BRFCON! «PE - ~INIT&3000#4> ! <PE1-INIT8&777/72>> 
;GENERATE AN INTERRUPT 
MICPC=MIC 
JUNE! ALCOND! < IDLE- ~INIT&83000#4> ! < IDLE-INIT877772>> 
PSTATE OUTWAIT 
IMM, «<OUTWAIT-INIT&77772>> 


MEM 
MICPC=MICPC41 
«MOVE! WRMEM! IMM! < <OUTWAIT-INIT877772> >> 


.ENDC 

‘IF OF $LOW 
cone. zr MM. NXTINT ;ADDRESS NEXT INTERRUPT QUEUE 
MICPC=MICPC41 

IF IDN IMM, IMM 
HOVE !LOMAR! IMM: CNXTINT8377>> 
(MOVE !LDMAR! IMM! <NXTINT> > 
.ENDC 


SP MEMX SELB, SPO 
MICPC=MICPC+1 
<MOVE! SPX! MEMX! SELB! SPO> 


MEM IMM, INTSTK sASSUME WRAP AROUND CASE 
MICPC=MICPCH1 
(MOVE ! WRMEM! IMM! <INTSTK>> 


BRWRTE ay <<MMEND=2> > 
MICPC=MICPC+1 
«MOVE! WRTEBR! IMM! < <MMEND-2> >> 


;COPY ADDRESS FOR NEXT INT TO SPO 


;ADDRESS OF LAST INT IN STACK 


CMP ;SHOULD WE WRAP 
GePCAMIEreT I. 
<SUBTC! BR! SPO> 


2 S$ : YES--BRANCH 


e708) 14-DEC- TferApe 44 6-20 PAGE: 


O08e 
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DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY LL 27(1006) 14-DEC-76 16:44 PAGE 6-21 PAGE: 0087 
DDCHGH.MAC O6-DEC-76 11:34 OUTINT---SET UP OUTPUT INTERRUPT [RDYO]) 

(1) 000237 MICPC=MICPC+1 

(1) 012464 101642 < JUMP! ZCOND! <S$-INIT&3000"4> ! <S$-INIT877772)> 

755 012466 BRWRTE Inn 2 OFFSET FOR NEXT POINTER 

1) o00240 NICPC=HICECS 

Ch 012466 oo0402 <MOVE! EBRE IMM! <2) 

756 012470 aan. NEN 4 BR ADD 'Sp UPDATE POINTER 

\ 3 

1) 012470 062400 SHOVE? HBMEN 2 welts 

757 012472 S$: SP MEMX, SELB, SPO COPY POINTER TO SPO 

(1) o00242 MICPC=MICcPC+l 

(1) 012472 043220 (MOVE ! SPX! MEMX! SELB! SPO> 

758 012474 LOMA IMM, NXTSP :PICK UP START OF IN QUEUE 

(1) 000243 nicPc=MICPCS 

(1) 001 F IDN MM 

) 012474 910241 HOVE LORAR! IM! <WXTSPE377> 

(1) (HOVE! LDMAR! IMM? <NXTSP> > 

(1) 000 LE 

759 (012476 CMP MEMX, SPO :COMPARE TO END 

(1) o00244 MICPC=MICPC+] 

tL) 012476 O40360 <SUBTC! MEMX! SPO> 

760 012500 sate open IF EQUAL--CLEAR INT PENDING 

(1) 012500 raved ae 0 ae '< 10$-INIT8777/2>> 

761 o12502 ALWAYS IDLE 

(1) o00246 MICPC=MICPC+1 

(1) o12502 100451 OTGNE? AL COND! < IDLE- -INIT&3000*4> ! < IDLE-INIT&777/2> > 

762 012504 10$:  BRWRTE IMM, 357 sMASK TO CLEAR INT PENDING 

(1) 900247 MICPC=MICPC41 

(1) 012504 000757 THOVETWRTEBR! IMM! <357>> 

763 012506 CLRIDL: SP BR, AANDB, SP1 

(1) 000250 MICPC=MICPC+1 

) 012506 063261 <MOVE ! SPX! BR! AANDB! SP1> 

764 012510 ALWAYS weeks 

(1) 000251 MICPC=MICPC+1 

(1) 012519 100451 < JUMP! ALCOND! <IDLE-INIT83000#4> ! < IDLE-INIT8777/2>> 


KO? 


DMC11 DDOMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-22 PAGE: ooge 
DOCHGH.MAC O6-DEC-76 11:34 OUTWAI--WAIT FOR RDYO TO GO AWAY 

766 .SBTTL OUTWAI--WAIT FOR RDYO TO GO AWAY 

767 Olesie2 OUTWAI: SPBR _IBUS, OCON, SPO sREAD OUTPUT CONTROL CSR 

(1) oog2se2 MICPC=MICPC+ 

1) O12512 123440 «MOVE! SPBRX! IBUS! OCON! SPO> 

768 001 .IF DF SLOW 

763 BR7 NIDLE& :RDYO SET --GET OUT 

770 00 .ENDC 

771 001 -IF NOF SLOW 

772 012514 BR? IDLE 

(1) 900253 MICPC=MICPC+1 

(1) 012514 10345) < JUMP! BR7CON! <IDLE-INITS3000%4> ! < IDLE-INIT8&777/2) > 

773 00 .ENDC 

774 012516 BRWRTE IMM, 100 ;CLEAR CONTROL BITS 

(1) 000254 MICPC=MICPC41 

(1) 012516 o00S00 (MOVE! WRTEBR! IMM! <100>> 

775 012520 OUT BR, OOCON! AANDB 

(1) 000255 MICPC=MICPC+1 

(1) 012520 061262 <MOVE ! WROUTX! BR! <OOCON! AANDB> > 

4 

776 012522 ALWAYS _INS13 

(1) 000256 MICPC=MICPC+1 

() o12522 100671 < JUMP! ALCOND! < INS13-INIT&3000%4> ! < INSL3-INIT8777/2) > 


- 
OF 
DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27( 1006) 4-DEC-76 16:44 PAGE 6-23 PAGE: 0089 
DDCHGH.MAC  O6-DEC-76 11:34 CTLSRV--CNTL I SERVIC 
778 _SBTTL cr Sry Sa I SERVICE 
779 «012524 CTLSRV: TO SPO 
(1) 000257 RICPCaNIGE c+] 
iL) 012524 123560 7 or 
78C 012526 BRSHFT 
(1) 000260 MICPC=MICPC+1 
(1) 012526 001620 (MOVE! SHF TBR! WRTEBR! SELB> 
$81 012530 BR1 HOSEL ;IF SET IS HALF DUPLEX 
(1) 000261 MICPC=MICPC+1 
( 012530 102754 < JUMP! BRICON! <HDSEL-INIT&3000#4> ! <HDSEL-INIT8777/2>> 
782 012532 OUTPUT IMM, <100!0MODEM> ;MASK DTR, TURN OFF HDX 
(1) oo026e2 MICPC=MICPC41 
(1) 012532 002113 <MOVE! WROUT! IMM! < 100! OMODEM> > 
783 012534 INS11: BRWRTE OP, <SELA!SPO> sRESTORE THE CNTL WORD 
(1) 000263 MICPC=MICPt+1 
(1) 012534 O60600 CMOVETWATEBR! DP! <SELA! SPO> > 
784 012536 cee BRO IF SET IS BOOT 
(1) 012536 ToeS83 i 6 ipo oe ance 
78s 012540 INS12: Ae 1BUS INCON, SPO ;READ THE INPUT CONTROL CSR 
( 1 1 «MOVE! SPX! > 
(1) 012540 sexi rigeee tS 7 eee 
78 012542 sa nieeee ZERO THE BR REGISTER EXCEPT INT ENABLE 
(1) o1es42 O005 oo a 
787 o12544 OUT BR, <AANDB! OINCON> :CLEAR IN CONTROL CSR 
(1) 000267 MICPC=MICPC+1 
1) 012544 061260 <MOVE ! WROUTX! BR! <AANDB! OINCON > 
5de 012546 LOMA IMM, PRTST ADDRESS PORT STATE 
(1) 000270 MICPC=MICPC+1 
(1) 001 .IF IDN IMM, IMM 
(1) 012546 010211 “MOVE! LDMAR! IMM! <PRTST8377> > 
(1) (MOVE! LDMAR! IMM! <PRTST> > 
( 1) 00 . ENDC 
789 012550 INS13: PSTATE NIDLE2 
) 0125€0 MEM Tit < <<NIDLE2-INIT8777/2) > 
(3) 000271 MICPC=MICP 
( : 012550 002533 «MOVE! WRMEM! tn! <<NIDLE2-INIT&77772) >> 
+ eo, RYCPCOMICPCS 
1) o1esse oppe ee 4 GAS TAU SONDS <IDLE-INIT&3000#4> # <IDLE-INIT8777/2> > . 
731 , 
792 oc12ss4 CBOOT: BRWRTE IMM,200 :MASK FOR BOOT MODE 


—— ee 


MO? 


000277 MICPC=MICPC+ 
012564 TooeeS TUNE! ALEONO! €INS12-INIT&3000%4> ! <INS12-INIT&77772>> 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY 11 27 (1006) HDEC- 76 16:44 PAGE 6-24 PAGE: 9090 
DDCHGH.MAC  O6-DEC-76 11:34 CTLSRV--CN SERV 

(1) 000273 MICPC=MICPC+1 

(1) 012554 000600 «MOVE! WRTEBR! IMM! <200>> 3 

793 012556 SP BR, AORB, SP1 ;IN PORT STATUS WORD 

(1) 000274 MICPC=MICPC+1 

(1 012556 063301 <MOVE! SPX! BR! AORB! SP1> 

734 012560 BRWRTE _IMM, 204 ;MASK FOR OK TO SEND AND LINE IDLE 

(1) 000275 SRB cemrepchT 

(1) 012560 000604 (MOVE! WRTEBR! IMM! <204> > 

795 o12562 sp BR, SELB, SP10 "IN LINE STATUS 

(1) 000276 MICPC=MICPC+1 

(1) 012562 063230 CHOVE! SPX? BRE SELB! SP10> 

736 012564 ALWAYS INS12 

( 


bab 
wesw 


NO? 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-25 PAGE: 0091 
DDCHGH.MAC  O6-DEC-76 11:34 TBASRV--TRANSMITTER BUFFER ADDRESS SERVICE 
798 . SBTTL TBASRV--TRANSHITTER BUFFER ADDRESS SERVICE 
799 012566 TBASRV: LDMA IMME GET POINTER TO END OF TMT CHAIN 
(1) 000300 Aa eh 
i) 012566 O01 Pm! MM! <ETC8377>> 
(1) CHOVE!LOMAR! IMM! <ETC> > 
1) oco . ENDC 
abo 012570 LOMA - MEMX. <SELB!SPX!SPO> FIND THE LINK 
pe eee | 
1) CHOVETL DMER? thi? <SELB! SPX! SPO8377>> 
(1) 012570 053220 (MOVE! LDMAR! MEMX! «SELB! SPX! SPO> > 
(1) 000 .ENDC 
801 012572 MINC _IMM ;BUFFER ASSIGNED IN IN LINK FLAGS 
i my niguestlestt 
C1) 012572 y NCMAR! IMM! <1>> 
802 012574 ue BRURTE <ZNI# INCHAR> , TMLS :POINT PAST NUMBER FIELD 
1) 012574 ri UASVE! WATEGR! IMM! INCMAR! <TML®> > 
803 ;SET BR FOR ADDITION TO SPO 
804 012576 “ MEMING I us PORT1 
(1) 012576 resi <MO HOVE! EE 
Hy OO rue daemon 
(1) 012600 136520 Ot i 
012602 MEMINC IBUS,PORTY 
(1) 000306 MICPC=MICPC+1 
(1) 012602 136560 «MOVE! WRMEM! INCMAR! IBUS! <PORT4> > 
807 012604 nregee BUS) PORT3 
(1) 000307 CPC=MI 
(1) D12604 136540 MOVE! WRMEM! INCMAR! IBUS! <PORT3> > 
808 012606 L 
(1) 000 M cPgaMl mere 
( 1) 012606 010070 HOVE ILDAARE TM! <ETC8377> 
(1) <MOVE!LDMAR! IMM! <ETC>> 
(1) 000 E 
804 012610 MEM IMM, TMLL ;ASSUME QUEUE WRAP AROUND 
(1) 000311 MICPC=MICPC41 
(1) 012610 002471 <MOVE! WRMEM! IMM! <TML1>> 
810 012612 CMP END OF CHAIN? 
ae 000312 GrCPCaMICPCT I 


BO8 


DMC11 DDCMP PROTOCOL JNPLENENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-26 PAGE: 0092 
DOCHGH.MAC O6-DEC-76 11:34 TBASRV--TRANSMITTER BUFFER AbBRESS SERVICE 
(1) 012612 060360 <SUBTC! BR! SPO) 
811 012614 2 10$ IF YES--BRANCH 
(1) 000313 MICPC=MICPC+1 
i) 012614 101716 < JUMP! ZCOND! < LOS-INIT&3000%4> ! <10$-INIT&777/2) > 
812 012616 SQUEUE ENTRY LENGTH 
(1) 900314 RICPcstICPCS 
(1) 012616 o00406 ESR? IMM! <B> > 
813 012620 MEM ADD! SPO UPDATE THE END POINTER IN MEMORY 
(1) 000315 nicpe=tcrt 1 
(1) 012620 O62400 «MOVE! NAMEN? OR! “ADD! SPO) > 
814 012622 10$:  BRWRTE Inn, 2 ;NUMBERED MSG PENDING MASK 
(1) 000316 MICPC=MICPC 
(1) 012622 900402 CHOVE TUR TEBR! IMM! <2>> 
815 o12624 BR AORB, SP10 UPDATE LINE STATUS 
(1) 000317 RICPC=N ICP 
MQ) 012624 063310 (MOVE! SPX! BR! AORB! SP10> 
4 
816 012626 ALWAYS INS12 
(1) 000320 MICPC=MICPC+1 
( 1 ) O12626 100665 <JUMP! ALCOND! < INS12-INIT&3000%4> ! <INS12-INIT&777/2> > 
{id 


COS 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-27 PAGE: 0092 
DDCHGH.MAC O6-DEC-76 11:34 RBASRV--RECEIVE BUFFER ADDRESS SERVICE 

818 .SBTTL RBASRV--RECEIVE BUFFER ADDRESS SERVICE 

819 012630 RBASRV: LOMA _—IMM. ERC ;ADDRES END OF RECEIVE CHAIN 

(1) 000321 NECPCSMTCECH 

(1) ol DN MM 

i) 012630 010023 nove Conn! IRM! (ERCB377>> 

(1) «HOVE! LONAR! IMM CERC> > 

1) coo 

820 012632 LDMA = MEMX, <SELB!SPXx!SPO> ;GET THE POINTER TO LINK 

: 000382 NICPC=MICEC#l +} a 

1) «HOV POMAR? tritt <SELB! SPX! SP08377>> 

(1) 012632 053220 (MOVE! LDMAR! MEMX! <SELB! SPX! SPO> > 

( 1) ooo . ENDC 

821 o12634 ne INC 

(1) 000323 MIC Cureped 

(1) 012634 O16401 MOVE! WRMEM! INCMAR! IMM! <1>> 

822 012636 MEMINC IBUS, PORT 

(1) 090324 MI. PC=MICPC+! 

1) 012636 136500 “MOVE! WRMEM! INCMAR! IBUS! <PORT1>> 

$23 012640 MEMINC IBUS,PORT2 

(1) 000325 MICPC=MICPC+h 

(1) 012640 136520 <MOVE! WRMEM! INCMAR! IBUS! <PORTe2> > 

824 O12642 MEMINC IBUS, PORTY 

(1) 000326 NICPC=MICPC+ +1 

(1) 012642 136560 MOVE! WRMEM! INCMAR! IBUS! <PORT4 > 

825 012644 MEMINC IBUS, PORT3 

(1) 000327 MICPC =MICPC+1 

1) 012644 136540 (MOVE! WRMEM! INCMAR! IBUS! <PORT3> > 

B26 >:NOTE INVERTED ORDER OF PORT 3 AND PORTH 

827 O12646 AA MM, ERC 

(1) 000330 MICPC=MICPC41 

(1) 001 LIF i] 

(1) 012646 019023 inoy 'LDMAR! IMM! <ERC8&377>> 

(1) <MOVE!LDMAR! IMM! <ERC>> 

(dh) 000 END 

828 612650 MEM IMM, RCL1 ;ASSUME WRAP AROUND CASE 

(i) 000331 MICPC=MICPCH1 

Ch) 012650 o02424 <MOVE! WRMEM! IMM! <RCL1>> 

5) 

829 O12652 BRWRTE IMM, RCL7 :GET ADDRESS OF END OF CAHIN AREA 

(1) 000332 MICPC=MICPC41 

( 1) O126S2 o00462 (MOVE! WRTEBR! IMM! <RCL7> > 

830 012654 CMP _BR SPO ;CHECK FOR END 

13 090333 MICPC=MICPC+1 


DOS 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-28 PAGE: 9094 
DCCHGH.MAC  O6-DEC-76 11:34 RBASRV--RECEIVE BUFFER ADDRESS SERVICE 

(1) 012654 060360 -  ¢SUBTC!BR!SPO> 

831 012656 2 INS12 :IF EQUAL BRANCH 

(1) 006334 MICPC=MICPC+1 

ct) 012656 101665 < JUMP! ZCOND! < INS12-INIT83000#4> ! < INS12-INIT8777/2>> 

832 012660 BRWRTE IMM,S ;CALCULATE ADDRESS OF NEXT LINK 

(1) 900235 NICPC=NICP PC$1 ; 

(1) 012660 o00405 (MOVE! WRTEBR! IMM! <S>> 

833 012662 MEM BR, ADD! SPO lis 

(1) 000336 MICPC=MICPC+1 

(13 012662 062400 «MOVE! AMEN! BR! <ADD! SPO> > 

834 012664 ALWAYS INS12 EXIT 

(1) 000337 MICec=h ICPC+1 

. 012664 100665 < JUMP! ALCOND! < INS12-INIT&3000%4> ! < INS12-INIT8777/2) > 

835 012666 RAl: | BRWRTE IMM. 317 :MASK TO CLEAR START MODE AND CLR ACTIVE 

(1) 000340 MICPC=MICPCH1 

Ch) 012666 000717 (MOVE! WRTEBR! IMM! <317>> 

4 

836 012670 SPBR _BR. AANDB. SP10 ;CLEAR BIT IN LINE STATUS WORD 

(1) 000341 RrercenTPt | 

(1) 012670 063670 (MOVE ! SPBRX! BR! AANDB! SP10> 

837 012672 RA3:  BRWRTE IMM.O sCLEAR BR 

(1) 000342 MICPC=MICPC41 

(1) 012672 O00400 (MOVE! WRTEBR! IMM! <O>> 

838 012674 SP BR, SELB, SP13 ;SET NUMB MESSAGE TYPE IN SP123 

(1) 000343 MICPC=MICPC+1 

(1) 012674 063233 (MOVE! SPX! BR! SELB!SP13> 

839 012676 STATE CVE ;CHANGE RECEIVE STATE POINTER TO STATE 3 

(1) 000344 MICPC=MICPC+1 

(1) oO12676 o004e4 <HOVE LWRTEBR? IMM! <RCVB-INIT877772> > 

g40 012700 ALWAYS REX IT 

(1) 000345 MICPC=MICPC+1 

(1) 012700 1004S0 < JUMP! ALCOND! <REXIT-INIT&3000%4> ! <REXIT-INIT8777/2>> 

841 : 

g42 001 "IF NOF SLOW 

843 012702 ACK:  BRWRTE BR AA!SP1O ;READ LINE STATUS SHIFTING LEFT 

(1) 000346 MICPC=MICPC+1 

(1) 012702 060530 CHOVE!URTEBR! BR! (AA! SP1O> > 

844 012704 BRY S$ ;IF START RECD--CLEAR START MODE 

(1) 000347 MICPC=MICPC+1 

ih) 012704 103351 < JUMP! BRYCON! <S$-INIT&3000%4> ! <S$-INIT8777/2>> 

845 012706 ALWAYS IDLE 

(1) p003s0 MICPC=MICPC+1 

(1) 012706 100451 < JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT8777/2>> 

,a3 

G4 012719 S$: BRWRTE IMM, 327 :CLEAR START MODE 


E08 
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OOCHGH.MAC  O6-DEC-76 11:34 RBASRV--RECEIVE BUFFER ADDRESS SERVICE 

1) 000351 MICPC=MICPC+1 

(1) e710 ogre? UHOVETWATEBR! INM! <327) > 

947 912712 SP BR, AANDB, SP10 SIN LINE STATUS 

c2) 900352 MICPC=MICPC+1 

(1) o1e7ie 063279 (MOVE! SPX! BR! AANDB! SP10> 

848 012714 

(1) ocgas2 PECPCeMIC 

(1) 12714 104507 MST AL KONE <ROS-INITS3000#4> # <ROS-INIT8777/2)> 

349 006 -ENDC 


FOS 
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DDCHGH.MAC  O6-DEC-76 11:34 RBASRV--RECEIVE BUFFER ADDRESS SERVICE 
951 012716 HOSEL: BRWRTE IMM, 100 :HD MASK TO BR 
(1) 090354 MICPC=MICPC41 
1) 012716 o00S00 (MOVE! WRTEBR! IMM! < 100) > 
952 012720 SP BR, AORB, SP10 UPDATE PORT STATUS WORD 
(1) 000355 MICPC=MICPC+1 
1) 012720 063310 «MOVE! SPX! BR! AORB! SP10> 
853 012722 ALWAYS INS11 
(1) 000356 MICPC=MICPC+1 
1) 012722 100663 CJUMP TAL COND! <INS11- INIT&3000%4> ! <INSL1-INIT877772> > 
as4 . 
g55 012724 PE1:  BRWRTE IMM. 300 ;MASK FOR INTERUPT AND VECTOR THROUGH x04 
(1) 000357 MICPC=MICPC41 
) 012724 900700 (MOVE! WRTEBR! IMM! (300) > 
856 012726 sp IBUS, UBBR, SPO ;READ BR CONTROL REG 
(1) 000360 MICPC=MICPC+] 
(1) 012726 123220 <MOVE! SPX! TBUS! UBBR! SPO> 
857 012730 OUT BR, <AORB! OBR> : INTERRUPT 
(1) 090361 MICPC=MICPC+1 
ih) 012730 061311 <MOVE ! WROUTX! BR! <AORB! OBR> > 
958 001 IF NOF SLOW 
853 012732 ALWAY IDLE 
(1) 000362 MICPC=MICPC+1 
(1) 012732 10045) < JUMP! ALCOND! < IDLE-INIT83000%*4> ! < IDLE-INIT8777/2>> 
860 000 .ENDC 
861 001 "IF OF SLOW 
862 ALWAYS PINTe 
863 coo -ENOC 
865 012734 HALTED: MEMADR EM 
1) 000362 MICPC=MICPC+1 
(1) 012734 002722 (MOVE !RMEM! <EMG-INIT8777/2> > 
(1) = (MOVE! URMEN! ! <ENG-INIT8777/2> 
QE ° ;FALL INTO ACLOW 
867 012736 ACLOW: BRWRTE IMM : :CAUSE AN AC LOW 
(1) 000364 MICPC=MICPC 
1) 01273 o004de CHOVE TWA TERE IMM! <2>> 
B6@ O12740 OUT _BR, <SELB!0BR> 
1) 000365 MICPC=MICPC+1 
1) 012740 061231 (MOVE! WROUTX! BR! «SELB! OBR> > 
869 O12742 cS: BRURTE 1BuS UBBR ;WAIT FOR IT T9 COMPLETE 
C1) 000366 MICPC=M 
(1) O12742 120620 (MOVE! WRTEBR! IBUS! <UBBR) > 
iad 
870 12744 BR1 S$ 


GO8 
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ODCHGH.MAC  O6-DEC-76 11:34 RBASRV--RECEIVE BUFFER ADDRESS SERVICE 

(1) 000367 MICPC=MICPC+1 

uD 912744 192766 JUMP! BRICON! <SS-INIT&3000"4) 9 <S$-INIT8777/2>> 

871 012746 MX, SELB, PAGES 

£3) 000370 mIebConte C+l 

ee 912746 154620 < JUMP! ALCOND! MEMX! SELB! PAGE2> 

933 012750 CKTIME: BRWRTE IBUS, UBBR ;READ BR CONTROL REG 

(1) 009371 MICPC=MICPC+ 

1) 012750 120620 CMOVE? IRTEBR? BUS! <UBBR> > 

873 012752 BR4Y HAL TED 

(1) 090372 MICPC=MICPC+1 

) 012752 103363 (JUMP! BRYCON! «HAL TED-INIT83000%4> ! <HALTED-INIT8777 72> > 

874 012754 ALWAYS EMI 

(1) 000373 MICPC=MICPC+1 

1) 012754 114725 < JUMP! ALCOND! <EM1-INITS3000%4> ! <EM1-INIT877772>> 

975 , 

876 012756 tpul: BRWRTE ISUS,NPR 

ih) 900374 MICPC=MICPC+] 

) 012756 120600 (MOVE! WRTEBR! IBUS! <NPR> > 

877 012760 BRO IDLE 

(1) 000375 MICPC=MICPC+1 

cb) 012760 i0205] < JUMP! BROCON! « IDLE-INITS3000#4> ! < IDLE-INIT$777/2>> 

\ 

878 o12762 ALWAYS ECe2 

(1) 900376 MICPCoM MICPC+1 

(1) gle762 114752 STONE? AL COND! <EC2=INITS3000#4> # <EC2- INIT8777/2>> ; 

(1) $ 

879 012764 $ZERO 

c13 600377 MTCPC=MICPC+1 

oe 012764 9¢09900 oddo00 

(io 

86 


OMC11 CDCMP PROTOCOL 

BOZHGH.MAC ©: D&-DEC-76 
gg2 012766 
gg3 000377 
i 
3e7 
888 012766 
1) 990400 
i) 012766 023200 
La 
889 012770 
(1) 000401 
1) 012770 O6060! 
930 012772 
(1) o00402 
1) 012772 106012 
831 012774 
(1) 900403 
aD) 012774 107412 
\ 
892 012776 
(1) 900404 
ee 012776 dS00601 
893 013000 
(1) 000405 
(1) 013000 060360 
894 913002 
(1) OCO40E 
a) 013002 101740 
885 013004 
(i) 900407 
a) 013004 do0405 
896 013006 
(1) 900410 
) 013006 060360 
857 013010 
(1) 900411 
1) 0130190 105422 
898 013012 
(i) 000412 
) 013012 o0062C 

J 

899 912014 
(hj 090413 
WD) 013014 60360 
309 oO12016 
1 oco4i4 


Ot “tape MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-32 PASE: 
1:34 RBASRV--RECEIVE BUFFER ADDRESS SERVICE 
. sINIT+1000 


RCVA: 


S$: 


HO8 


MICPC=377 
RCV oe Te te TO HANDLE FIRST DDCMP CHARACTER 


SBTTL 
BETERRDNES THESSAGE. TYP UMBERED, UNNUMBERED OR BOOT 
UP_APROPRIATE srates. FOR REST OF MESSAGE. 


° ie -. RCVDAT, SP ;READ RECEIVE CHARACTER TC SPC 
NICPCS epc+] 

<MO X! IBUS!RCYDAT! SPO> 
BRWRTE 8R,SELA!SP1 ;READ PORT STATUS WORD 


MICPC=MICPC+1 
(MOVE! WRTEBR! BR! <SELA!SP1>> 


BRO S$ ;IF INIT MODE---ONLY BOOT 0K 

MICPC=MICPC+1 

SUMP? BROCON? <S$-INIT&3000%4) ! <S$-INIT8777/2>> 

BR7 S$ :IF BOOT MODE---ONLY BOOT OK 

MICPC=MICPC+1 

< JUMP! BR7CON! <S$-INITS3000#4> ! <S$-INIT8777/2>> 

BRWRTE IMM, 201 ;SOH TO BR 

MICPC=MICPC+1 

(MOVE! WRTEBR! IMM! <201>> 

CMP BR, SPO :COMPARE BR TO SPO 

MICPC=MICPt+1 

<SUBTC! BR! SPO> 

2 RAL IF EQUAL-IS NUMBERED MESSAGE 

MICPC=MICPC+1 

< JUMP! 2COND! <RAL-INIT&3090#4> ! <RAL-INIT8777/2> > 

BRWRTE IMM,S ;ENG TO BR 

MICPC=MICPC41 

(MOVE ! WRTEBR! IMM! <S> > 

CMP ;COMPARE ENQ TO SPO 
MICPC=MIC tae 

<SUBTC! BR! SPO> 

2 RA2 ;IF EQUAL-IS UNNUMBERED MESSAGE 
MICPC=MICPC+1 

TOMB? ZCOND! <RA2=INITS3O00%4> ! <RAZ-INIT8777/2> 

BRWRTE IMM, 220 :DLE TO BR 

MICPC=MICPC$1 

«MOVE ! WRTEBR! IMM! <220>> 

CMP BR, SPO ;COMPARE DLE TO SPO 

MICPC=MICPC+1 

<SUBTC! BR! SPO> 


Z BOOT ;IF EQUAL IS BOOT 
MICPC=MICPC+1 


cC3é 
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ODCHGH.MAC  O6-DEC-76 11:34 RCVA--ROUTINE TO HANDLE FIRST DOCMP CHARACTER 

(1) 013016 105756 < JUMP! ZCOND! <BOOT-INITS&3000#4> ! <BOOT-INIT8777/2) > 

901 013020 FLUSH: OUTPUT IMM, <200!0RCVCO> FLUSH INPUT SILO 

(1) 900415 MICPC=MICPC41 

i} o13020 Odeele (MOVE! WROUT! IMM! <200! ORCVCO> > 

962 ;(LOW ORDER BITS READ ONLY) 

303 013022 : BRURTE IMM, 357 MASK TO CLEAR--CLEAR ACTIVE 

i) oizcee Bours? COVES WATEGRE IMM! (357) 

$04 013024 SP BR, AANDB, SP10 SIN LINE STATUS WORD 

(1) 000417 MICPC=MICPC+1 

CL) 012024 063270 (MOVE! SPX! BR! AANDB! SP10> 

385 001 IF DF $LOW 3 

ALWAYS RMI SET STATE TO RCVA AND RETURN TO IDLE 

997 00 iP hor 

308 001 ou 

309 013026 RM1: AI, 

iT) 000420 ethy =MIC Oo 

(1) 013026 900400 (MOVE !WRTEBR! IMM! <RCVA-INIT&8777/2> > 

i ema 

cD) 013030 FBOUEA NS MBIA SOND! <REXIT-INIT83O00#4> # <REXIT-INIT8777/2) > 

\ 

311 000 zENOC 

312 013032 RA2: STA TE RCVI sCHANGE RECEIVE STATE TO I 

(tj on0422 MICPC=MICPC+1 

(i) 013032 OO0665 (MOVE WRTEBR! IMM! <RCVI-INIT8777/2> > 

$13 001 IF NOF SLOW 

oe ree 

cD) o1z034 fepues STENT AL TE ie am ca Oa at 

915 00 -ENDC 

316 991 aif OF 

317 REXIT: er "LB, .SP3 

918 AL MAYS DL 

$19 ooc /END 
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Om oR oR RN Pe Do re 
ee Ow ee es QJ eS SS OE OUI ED 


— = FU) eb 


SPR ER ERO DO OPN DR RKO DR OO MOO Om Dra Donn On-nODnnn 


. 
+b = bh (DO (DO (a se GJ) — — Ce 
a ee ee ee ee UT ee ee ee es ee ee ee QS SS 


013036 
013036 


013036 
013040 


013040 


013042 
013042 
013044 
013044 
013046 
013046 
013050 
013050 
013052 


013052 


013054 
013054 
013056 
013056 
013060 


013060 


O&-DEC-76 1 


o00424 
023204 


ooc4es 
001 
070214 
000 


OS0426 
054620 


000427 
106041 


000430 
060601 


900431 
107437 
000432 
Ol 
010i51 
000 


000433 
016402 


000434 
002710 


000435 
Ol 
01001e 


039 
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MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-34 PAGE: 0100 
RCVB--ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 


RCVB: 


-SBTTL_ RCVB--ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 
;ENTERED FROM IDLE LOOP 
; STORES COUNT FIELD AND SETS UP RCVC AS NEXT STATE 


sP IBUS, RCVDAT, SP4 ;READ CHARACTER TO SP4 
MICPC=MICPC+i 

«MOVE ! SPX! IBUS! RCVDAT! SP4> 

LOMA BR, <SELA!SP14> ;LOAD MAR WITH ADDRESS OF CURRENT 8A 
MICPCSMICEO ST 

IF I 

(HOVE !LOMAR! THI! <SELA!SP148377> > 

<MOVE!LOMAR! BR! <SELA!SP14>> 

END 
BRWRTE MEMX, INCMAR! SELB :READ FLAGS BYTE 
MICPC=MICPC+] 

<MOVE ! WRTEBR! MEMX! <INCMAR! SELB> > 
BRO RB1 ;RECV BUFFER ASSIGNED---CONTINUE 
MICPC=MICPC+1 
< JUMP! BROCON! <RB1-INIT&3CO0#4> ! <RB1-INIT8777/2>> 
BRWRTE BR,SELA!SP1 ;READ STATUS BYTE 
MICPC=MICPC+1 
(MOVE! WRTEBR! BR! <SELA!SP1>> 
BR? RB3 ;MAINT MODE 
MICPC=MICPC+1 
< JUMP! BR7CON! <RB3-INIT&3000#4> ! <RB3-INIT877772>> 
LOMA _—IMM,T sERROR--LOAD TYPE FIELD ADDRESS IN MAR 
NECPC=MICPC pct 
MM 

HOVE LORAR! TMH! 1837 

«MOVE? LDMAR! IMM! <T>> 

.ENDC 
MEMINC IMM, 2 sLOAD NAK TYPE 
MICPC=MICPC 

CHOVETHRMEN! INCMAR! IMM! <2> 
MEM IMM, 310 ;LOAD SUB-TYPE NO BUFFERS 
MICPC=MICPCH1 

(MOVE ! WRMEM! IMM! <310>> 
LOMA 
MICPC= enrepchi 

IF IDN IMM, IMM 

“MOVE !LDMAR! IMM! <NTLS8377>> 

<MOVE! LDMAR! IMM! <NTLS> > 

.ENDC 


KO8 
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ODCHGH.MAC O6-DEC-76 11:34 RCVB--ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 

ghe 013062 ALWAYS RHS ;BRANCH TO SEND NAK ROUTINE 

(1) 000436 MICPC=MICPC+1 

(1) 013062 104852 < JUMP! ALCOND! <RHS-INIT&3000%*4> ! <RHS-INIT8777/2)> 

937 013064 RB3:  § BRWRTE IMM,4 ;MASK FOR NO BUFFER AVAILABLE 

1) 000437 MICPC=MICPC41 

4C 013064 900404 (MOVE! WRTEBR! IMM! <4>> 

938 013066 SP AORB, SP1 SET THE FLAG 

(1) 000440 RICPCeMIeptes 

() 013066 063301 «MOVE! SPX! BR! AORB! SP1> 

Cy OO us RBI: RlcPesnrepes 

(1) 01307 BpDYeL «MO THATEBRE IMM! <RCVC-INIT8777/2> 

940 01307 RBO: SP BR, SELB, SP3 

(1) ooo44e MICPC=MICPC+1 

() 013072 063223 ‘ «MOVE! SPX! BR! SELB! SP3> 

941 013074 OUTPUT <MENX? INCHAR> , ‘SELB! OBAL> ;OUTPUT LOW ORDER SYTE OF ADDRESS 

(1) 900443 MICPC=MICPC+1 

(1) 013074 OS6226 <MOVE! WROUT ! MEMX! INCMAR! «SELB! OBA1>> 

942 013076 OUTPUT MEMX!INCMAR, <SELB!OBA2> ;OUTPUT HIGH BYTE OF ADDRESS 

(1) ooo444 MICPC=MICPC+1 

(1) 013076 056227 <MOVE! WROUT ! MEMX! INCMAR! <SELB! OBA2>> 

943 013100 SP Bus UBBR, SPO ;READ THE BUS REG REGISTER 

(1) o0044s MICPC=MICPC+1 

iL) 013100 123229 «MOVE! SPX! TBUS! UBBR! SPO> 

944 013102 BRWRTE zr 101 :MASK OFF ALL BUT NXM AND VEC4 BITS 

(1) pone MICPC=MICPCH1 

a) 013102 00501 <MOVE! WRTEBR! IMM! <101>> 

945 013104 SP BR, AANDB, SPO :AND SAVE IN SPO 

(1) 000447 MICPC=MICPC+1 

(1) 013104 063260 <MOVE! SPX! BR! AANDB! SPO> 

346 013106 SP IMM, 300, SPS sMASK TO ISOLATE EX. MEM BITS 

(1) 000450 MICPC=MICPC41 

dD) 013106 003305 «MOVE! SPX! IMM! 300! SPS> 

gu? * ;NOTE THIS REALLY WRITES A 30S BUT THE 

gue 5 GETS SHIFTED OUT 

949 613110 BRWRTE MEMX. AANDB!SPS :MASK ALL BUT EX. MEM BITS 

(1) 000451 MICPC=MICPC+! 

Ch) 013110 O40665 (MOVE ! WRTEBR! MEMX! <AANDB! SPS> > : 

y) 

960 O12112 RSHFT ;SHIFT THEM INTO THE CORRECT POSITION 

(1) gous MICPC=MICPC+1 

1) 013112 2 <MOVE ! SHF TBR! WRTEBR! SELB> 

961 012114 BRSHFT 

se 900453 ; MICPC=MICPC+1 


BOERGHOAAC  Ge-DRE-?o TIsSy © RCVBS=ROUTINE 10 RANDLE Thal St BF COUNT FIELD Sse ne 


(1) 013114 001620 (MOVE! SHF TBR! WRTEBR! SELB> 
952 013116 BRSHFT 

(1) 900454 MICPC=MICPC+1 

ci) 013116 001620 (MOVE! SHF TBR! WRTEBR! SELB> 

953 013120 BRSHFT 

(1) p004ss MICPC=MICPC+1 

ch) 013120 001620 CHOVE! SHE TBR! WRTEBR! SELB> 

954 013122 OUT BR, AORB! OBR ;WRITE EX MEM BITS OUT 
(1) 000456 MICPC=MICPC+1 

(dh) 013122 061311 (MOVE! WROUTX! BR! <AORB! OBR> > 

955 013124 ALWAYS IDLE 

(1) 000457 MICPC=MICPC+1 

(1) 013124 100451 < JUMP! ALEONDE < IDLE- -INIT&3000%4> ! <IDLE-INIT&8777/2>> 

956 913126 RB2: ALWAYS Ie 

(1) p00460 MICPC=MICPC+1 

1) 913126 100456 CJUMP!ALCOND! (12- INITS3000%4> ! <12-INIT8777/2> > 
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001 
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001 


000461 
023205 


000462 
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OOO464 
063310 
0004S 
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000470 
000472 


000471 
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RCVC: 


RCS: 


MO 
SUTINE TO HANDLE SECOND CHARACTER OF COUNT FIELD, SELECT AND FIN@ “103 


-SBTTL__RCVC--ROUTINE TO HANDLE SECOND CHARACTER OF COUNT FIELD, SELECT AND FINA 


;ENTERED FROM IDLE LOOP 
; INTERPRETS SELECT AND FINAL 
;CHECKS FOR COUNT TOO LARGE 


.IF DF $LOW 
ALWAYS SELQSY ;"CALL” SELECT/QSYNC SUBROUTINE 


IF NOF SLOW 

Sp IBUS, RCVDAT, SPS GET CHARACTER 
MICPC=MICPC+] 

<MOVE! SPX! IBUS! RCVDAT! SPS> 


BRWRTE IMM, 200 ;SEPARATE SELECT BIT FROM COUNT 
MICPC=MICPC+1 
(MOVE! WRTEBR! IMM! <200>> 


BRWRTE BR AANDB! SPS 
MICPC=MICPC+1 

(MOVE! WRTEBR! BR! <AANDB! SPS> > 
SP BR, AORB, SP10 
MICPC=MICPC+1 

«MOVE! SPX! BR! AORB! SP10> 
LOMA —_IMM.BC ;LOAD MAR TO BYTE COUNT 
MICPC=MICPC41 

.IF IDN IMM, IMM 

(MOVE! LDMAR! IMM! <BC8377>> 


IFF 
(MOVE! LDMAR! IMM! <BC>> 

“ENDE 

MEMINC BR,SELA!SPY ;SAVE LOW BYTE 
MI peamrcrcy 

(MOVE! WRMEM! INCMAR! BR! <SELA!SP4 > 


MEMINC BR,SELA!SPS ;AND NOW HIGH BYTE 
NICPCSH CPC 
(MOVE! WAMEM! INCMAR! BR! <SELA!SPS>> 


STATE RCVD SET NEXT STATE TO D 
MICPC=MICPC+1 
Hee T ep ett <RCVO-INITE77772)> 


MICPC=MICPC+1 
(JUMP! ALCOND! <REXIT-INIT&3000#4> ! <REXIT-INIT877772> > 
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DOCHGH. MAC O6-DEC-76 11:34 RCVD--ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAGES 


973 .SBTTL RCVD--ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAGES 
981 013152 RCVD: STATE RCVE 
(T) 013152 ere Mee TE CATER: IMM! <RCVE=INIT8777/2)> 
: 4 RD2: ’ F/B, SP3 SAVE THE STATE 
ab oLals 000473 RI CPCEMI 3 . 
(1) 013154 063223 (MOVE! SPX! BR! SELB! SP3> 
RCVDAT, SPO s INPUT THE CHARACTER 
eenend 000474 ar eB onrebeal 
(1) 013156 023600 <MOVE! SPBRX! IBUS! RCVDAT! SPO> 
984 013160 ae ;COMPARE NEW R TC LAST R 
if pons cece im 
(1) 013160 75 BR! <SUB!SP17)> 
385 013162 a 8 IF NEW IS GREATER---PROCESS 
iD) 013162 pea nygpe gee ih ame 
986 013164 ALWAYS IDLE a 
(1) 000477 MICPC=MICPC+1 
(1) 013164 100451 <JUM®!ALCOND! <IDLE-INIT&3000%*4> ! (IDLE-INIT8777/2)>~- 
$43 013166 10$: | BRWRTE BR,SELA!SP1 ;READ STATUS BYTE ~ 
(1) oo0so0 MICPC=MICPC+41 es 
(1) 013166 060601 (MOVE! WRTEBR! BR! <SELA!SP1>> 
988 013170 BR? IDLE sMAINT. MODE - GET OUT 
(1) 900501 MICPC=MICPC+1 
(1) 013170 103451 < JUMP! BR7CON! <IDLE-INIT&3000%4 ! < IDLE-INIT8777/2>> 
989 013172 BRWRTE SELA!SP10 
(1) oo0s02 MICPC=MICPC+1 
(1) 013172 060610 (MOVE! WRTEBR! BR! <SELA!SP10>> 
990 013174 BRSHFT 
(1) 000503 MICPC=MICPC+1 
(1) 013174 601620 <MOVE! SHF TBR! WRTEBR! SELB> 
991 013176 BRY IDLE 
(1) oocso4 MICPC=MICPC+1 
(1) 013176 103051 < JUMP! BRYCON! < IDLE-INIT&3000%4> ! <IDLE-INIT8777/2>> 
992 013200 Lone zea ADDRESS LAST ACKED IMAGE 
(i) ooosos NICPC=MI Beato 
(13 001 .IF IDN IMM, IMM 
1) 013200 010153 on 
(1) <MOVE!LDMAR! IMM! <ISP17>> 
(1) ‘whevsed, SD ENDC 
993 013202 *. MEM BR, SELA! SPO ;COPY THE CHAR 
(L) oorsos MICPC=MICPC+1 


013202 062600 «MOVE! WAMEM! BR! <SELA!SPO> > 


3! 
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CHGH.MAC O6-DEC-76 11:34 CVD--ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAGES 

(1) 

994 013204 ROS: | BRWRTE IMM!LDMAR, REPST ;SET UP COUNT FOR TIMER 

1) 000507 MICPC=MICPC+1 

1) 013204 9010403 (MOVE! WRTEBR! IMM! LDMAR! <REPST> > 

995 3 EEEDEPENOENT ON REPST = 2 
996 013206 MEM IMM, 1 RESET REP THRESHOLD 

(1) 900510 MICPC=MICPCH1 

(1) 013206 002401 <MOVE! WRMEM! IMM! <1>> 

997 013210 SP BR, SELB, SP1S RESET THE COUNT 

(i) 000511 MICPC=MICPC+1 

1) 913210 063235 (MOVE! SPX! BR! SELB!SP15> 

998 013212 ALWAYS IDLE 

(i) 000512 MICPC=MICPC+ 

D) 013212 100451 <JUMP! ALCOND! < IDLE- INIT83000%4> ! < IDLE-INIT8777 72> > 
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DOCHGH.MAC O6-DEC-76 11:34 VE--ROUTINE TO HANDLE N FIeLo OF NURSE REC MESSAGE 
1990 .SPTIL RCVE--ROUTINE TO HANDLE N FIELD OF NUMBERED MESSAGE 
1002 013214 RCVE:  BRWRTE BR.SELA!SPI READ THE STATUS BYTE 
(1) 000513 MICPC=MICPC+1 
1) 013214 060601 CHOVETWRTEBRIBR! <SELA!SPL>> , 
1003 013216 BR7 RCV 
(1) 900514 MICPC=MICPC+1 
1) 013216 107703 TUNE? BRECON! (RCVQ-INITS3O00%4) ! <RCVQ-INIT8777/2>> 
1004 013220 BRWRTE IBUS,RCVDAT ; INPUT THE CHARACTER 
(1) 000515 MICPC=MICPC+1 
(1) 013220 20600 (MOVE! WRTEBR! IBUS! <RCVDAT> > 
1905 013222 CMP BR, SP11 
(1) 000516 MICPC=MICPC+1 
(1) 013222 060371 <SUBTC! BR! SP11> 
1006 013224 2 S$ 
(1) 000517 MICPC=MICPC+1 
(1) 013224 105522 < JUMP! ZCOND! <S$-INIT&3000#4> ! <S$-INIT&777/2>> 
1007 013226 SP BR, DECA, SP13 FORCE MSG TYPE TO -1 
(1) o00520 MICPC=MICPC+1 
(1) 013226 063173 HOVE! SPX! BR! DECA! SP13> 
1008 013230 ALWAYS RE2 
(1) oo0se21 MICPC=MICPC+1 
(1) 013230 104523 < JUMP! ALCOND! <RE2-INIT&3000#4> ! <RE2-INIT8777/2>> 
1009 613232 S$: SP BR, INCA, SP11 UPDATE R FIELD 
(1) oo0s22 MICPC=MICPC+1 
(1) 013232 063071 UHOVE? SPX! BRE INCA! SPL 
1910 013234 RE2: STATE RCVE ;NEXT RECEIVE STATE IS F 
(1) 000523 MICPC=MICPC+1 
(1) 013234 900525 <MOVE ! E LWRTEBR! IMM! <RCVF -INIT8777/2>> 
1011 013226 ALWAY § REXIT 
(1) o00S24 MICPC=MICPC+1 
(1) 013236 100450 < JUMP! ALCOND! «REXIT-INITS83000#4 ! <REXIT-INIT8777/2> > 
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013240 
013240 
013242 
013242 
013244 
013244 
013246 


013246 
013250 


013250 
0132Se 
0i32Se 


0132S4 


013254 
013256 


0132S€ 


Desist 
108136 
000527 
063165 
000530 
000533 
000531 
020200 
000532 
190450 


000533 
000835 


ocos34 
104531 
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CVF --ROU 


RCVF : 


RCVFO: 


RCVF 1: 


RCVG: 


-SBTTL RCVF--ROUTINE TO IGNORE ADDRESS 


SP ; ;DECREMENTLOW BYTE OF COUNT 
MICPC=MICPC+1 
«MOVE! SPX! BR! DECA! SP4> 
Racpe ;NO OVERFLOW 
<T cpcenIFCrL veo-tntTs3000e4 '<RCVFO-INIT8777/2>> 
SP BR, DECA, SPS OVERFLOW - DECREMENT HIGH BYTE 
MICPC=MICPC+1 
<MOVE! SPX! BR! DECA! SPS> 
STA 
Tepes 


t t IMM? <ROVG-INIT87772: 
oe he cae! AcvoaT. SINPUT CHARACTER - AND DISCARD 
MICPC=NI mrepeel 


<« IBUS! RCVDAT!0> 
ALWAYS REXIT 


MICPC=MICPC+1 
TUNE! ALCOND! <REXIT-INITS3OOO#4) ! <REXIT-INIT8777/2>> 


*SBTTL RCVG--ROUTINE TO IGNORE CRC1 


éTATE -RCVH :NEXT STATE IS RCVH 
MICPC=MICPC+1 : 

‘n ROVE URTEBR! IMM! <RCVH-INIT8777/2) 

MICPC=MICPC+1 


«JUMP! ALCOND! <RCVF 1-INITS3000#4> ! <RCVFI-INITS777/2>> 
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DOCHGH. MAC O6-DEC-76 11:34 RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 


1026 .SBTTL RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED Tye 
1028 013260 RCVH: 
1929 013260 SP IBUS, RCVDAT, SPO ;GET CHAR IN SPO 
(1) 000535 MICPC=MICPC+] | 
ee 013260 023200 <MOVE! SPX! IBUS! RCVDAT! SPO» 
1030 013262 BRWRTE IBUS,RCVCON ;READ RECVR CONTROL REGISTER 
(1) 000S53& MICPC=MICPC+1 
(1) 013262 020640 (MOVE! WRTEBR! IBUS! <RCVCOND > 
1031 013264 BRO LpoM ;IF BCC MATCH SET CRC IS GOOD 
(1) 000537 MICPC=MICPC+1 
1) 013264 116165 < JUMP! BROCON! < TDONI-INIT83000#4> ! < TDONI-INIT8777/2>> 
1032 013266 BRWRTE 9R,SELA!SP1 sREAD STATUS BYTE 
(1) oo0s40 MICPC=MICPE+1 
(1) 013266 O&0601 (MOVE! WRTEBR! BR! <SELA!SP1>> 
1033 013270 BR? RHX :MAINT MODE 
(1) 000541 MICPC=MICPC+1 
(1) 013270 107740 < JUMP! BR7CON! <RHX-INIT&3000%4> ! <RHX-INIT8777/2> > 
1034 013272 BRWRTE OP. <SELA!SP10> ;READ PORT STATUS WORD TC BR 
(1) oo0s+e2 MICPC=MICPC+1 
1) 013272 O60616 (MOVE! WRTEBSR! DP! <SELA!SP10>> 
1035 013274 BRSHF 
(1) 00543 ARCPCOMICPC#+1 
(i) 013274 001620 MOVE? SHE TBR! WRTEBR! SELB? 
103 013276 ae: B BR IF START MODE--PROCEED TO RESEND START 
1) 013276 Tye 3ae ninety BEES wa - "NIT&3000%4> ! <SNAK1-INIT877772> > 
1037 013300 LDMA sELSE BCC ERROR--LOAD ADDRESS OF TYPE FI 
(1) oo0s4s Seep CaN TopC+] 
1) 001 .IF IDN IMM. I 
(1) 013300 010151 <MOVE!LDMAR! IMM! <T8&377>> 
(1) “MOVE! LDMAR! IMM! <T>> 
(1) p00 . ENDC 
1038 013302 MEMINC IMM. 2 ;WRITE NAK TYPE 
(1) ooos4e MICPC=MICPC41 
(1) 013302 oi6492 CHOVE TWRMEMS INCMAR! IMM! <2> 
3 
1039 013304 MEMINC IMM, 301 ;WRITE HEADER BCC ERROR SUBTYPE 
(13 000547 MICPC=MICPC41 
(h) 013304 016701 CMOVETWRMEN! INCMAR! IMM? <301>> 
1040 013306 MEM BR pSELA!SP17 ;RESTORE LAST ACKED IMAGE 
(1) onoss MICPC=MICP Cl 
ch) 013306 96261 <MOVE ! WRMEM! BR! <SELA!SP17>> 
1041 013210 LOMA IMM, NHDS :ADDRESS CUM ERROR COUNTER 
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GE bo PAGE: 
DDCHGH.MAC  O6-DEC-76 11:34 RCVH--R TO DISPATCH NUMBERED AND UNNUMBERED TYPES 
(1) oo0ss1 MICPC=MICPC+1 
(13 001 IF TON IMM, IMM 
ih) 013310 010013 (HOVE !LOMAR! IMM <NHOS8377> 
et) (MOVE! LOMAR! IMM! <NHDS> > 
a) 000 .ENDC 
1042 013312 RHS: SP MEMX, SELB, SPO WRITE IT TC SPO 
(1) oo0ss2 MICPC=MICPC+] 
1) 013312 643220 (MOVE ! SPX! MEMX! SELB! SPO> 
1043 013314 wl Pie wr eeaTNCA! SPO INCREMENT IT 
{ - 
1) 013314 062460 ae ae TBR! CINCA!SPO> > 
1044 013316 NAKST sADDRESS NAKS TMTED DYNAMIC 
i 2 — MPS 
ch) 013216 010001 GROVE CDHARtY THI! CNEKSTS377>> 
(1) HOVE! LOMAR! IMM! <NAKST> > 
iL) p00 E 
1045 013320 BRWRTE MEMX, SELB WRITE IT TO BR 
(1) oo0sss MICPC=MICPC+h 
dL) 013320 040620 (MOVE! WRTEBR! MEMX! <SELB> > 
1046 013322 BSHFTB ;SHIFT IT RIGHT 
(1) o00ss6 MICPC=MICPC+1 
() 013322 061620 (MOVE! SHF TBR! SELB! BR> 
1047 013324 MEM BR, SELB :UPDATE IT 
(1) 000557 MICPC=MIC cpt+1 
(1) 013324 062620 (MOVE ! WRNEM! GR! <SELB) > 
j 
1048 013326 BRO NTHRES ;BRANCH IF THRESHOLD EXCEEDED 
(1) o00s60 MICPC=MICPC+1 
1) 013326 118256 < JUMP! BROCON! <NTHRES-INIT&3000*4> ! <NTHRES-INIT8777/2> > 
att} mpeenn 000561 ™ SHTePeed 
(1) 013330 114704 nice PAL COND! < SNAK- INIT83000#4> ! <SNAK-INITS77772) > 
1050 013332 RH3:  BRWRTE ODP, <DECA!SP13> sLOAD TYPE RECEIVED--DECREMENTING 
(1) po0se2 MICPC=MICPh+1 
ae 013332 060573 (MOVE! WRTEBR! DP! <DECA! SP13>> 
1051 013334 2 RH1 sIF ALUGUT IS ALL ONES IS NUMBERED MSG 
(13 000563 MICPC=MICPC+1 
) 013334 115467 < JUMP! ZCOND! <RH1-INIT&3000#4> ! <RH1-INIT$?77/2>> 
1052 013336 RSTATE RCVA 
(1) 000564 MICPC=MICPC+1 
(13 013336 900400 (MOVE! WRTEBR! IMM! <RCVA-INIT8?7772>> 
oe O00SE5 MICPCSMICPC+1 


C13349 063223 (MOVE! SPX! BR! SELB! SP3> 
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DOSHGH.MAC  O6-DEC-76 11:34 RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 
1053 013342 BRWRTE ODP, <SELA!SP10> LOAD LINE STATUS WORD IN BR 
(1) 000566 MICPC=MICPC+41 
i) 013342 060610 (MOVE! WRTEBR! DP! <SELA!SP1O>> 
ey 001 FOF $LOW 
idss ahh an 
1056 C61 
ee = 
ise 013344 “a ‘pF fic” (200! ORCVCO> 
(1) 000567 p Cpe 1cPc+1 
1) 013344 002212 MOVE? UROUT! FHM! “200! ORCVCOD > 
1069 000 .ENDC 
1961 013346 BRSHFT sSHIFT RIGHT 
(1) 900570 MICPC=MICPC+1 
WD) 01334 001620 <MOVE! SHF TBR! WRTEBR! SELB> 
} 
ins meme ocos7 or cpce mIeee 
a) 013350 Bio RIGPCOMIGPON wr rssgooety (10$-INIT8777/2>> 
1063 013352 LDMA —_—sIMM, TYPTAB “ADDRESS TYPE TABLE 
(1) 000572 nicPc=MrCect} 
(1) Oo! IF ION nM 
iD 013352 910162 Hove Conn! IH? ¢TYPTAB8377> 
(1) <HOVE!LDMAR! IMM? <TYPTAB> > 
(1) 009 -END 
1964 0913354 CMP <MEMX! INCMAR> , SP13 
C1) 900573 MICPC=MICPC+1 
CD) 013354 954373 <SUBTC! MEMX! INCMAR! SP13> 
1965 013356 2 REP 
(1) 900574 MICPC=MICPC+1 oa 
1) 013356 115411 C TUNE? ZCOND! «REP INI T&3000#4> ! <REP-INIT3777-°2> > 
1066 013360 CMP <(MEMX! INCMAR> , SP13 
(1) 900575 MICPC=MICPC+1 
a) 012260 054373 <SUBTC! MEMX! INCMAR! SP12> 
1067 013362 2 
(1) 900576 ntcpcentcec C+1 
th) 013362 115445 «JU AB TDEGND! ENAK- INIT&3000%4> ! <NAK-INIT8777/2>> 
1068 613384 10$: LOMA IMM, TYPSTT “SET POINTER TO START TYPE 
a 000577 RicPo=Micecty 
a) 013364 SID164 <MOVESLOMAR! IMM <TYPSTT8377> 
(13 <MOVE!LOMAR! IMM! <TYPSTT> » 
(1) p00 
1569 012366 CMP <MEMX! INCMAR> , SP13 
hi oc0e00 MICPC=MICPC+1 
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013366 054373 
013370 

005691 
013370 115429 
013372 

000602 
013372 054373 
013374 

000603 
013374 
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013376 

000604 
013376 


054373 

C1340C — 

013400 TOL Fae 
013402 

000606 

013402 100451 

001 


MACY11 27(1006) PAGE 6-45 
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HOS 


14-DEC-76 16:44 


<«SUBTC! MEMX! INCMAR! SP 13> 


Zz ionet 
MICPC=MICPC 
CTUMP! SCOND! «START INITS$3000#4> ! <START-INIT877772>> 


;STACK TYPE 
CMP «MEMX! INCMAR> , SP13 
MICPC=MICPC+1 
<«SUBTC! MEMX! INCMAR! SP 13> 


Z STACK 

MICPC=MICPC+1 

< JUMP! ZCOND! <STACK-INIT&3000#4> ! <STACK-INIT877772>> 
<MEMX! INCMAR> , SP13 ;ACK TYPE 


CMP 
MICPC=MICPC+1 
«SUBTC! MEMX! INCMAR! SP13> 


P = 
Rycpes WISP og INIT&30900%4> ! <ACK-INITS77772>> 


ALWAYS IDLE ;OTHERWISE IGNORE--MUST BE 29S MSG 
MICE enT CeCe 1 
< JUMP! ALCOND! < IDLE-INIT&3000#4> ! <IDLE-INIT8&777 72> > 


.IF DF SLOW 
SPBR  _—«IBUS, RCVCON. SPO sREAD RCVR CONTROL CSR 
BRWRTE 8R,AOD!SPO :SHIFT LEFT 
BR? Il 
BRUTE BR -AA!SPIO sREAD LINE STATUS-SHIFTING LEFT 
e G LE&! ‘ 
BRY cs !IF START RECD -- CLEAR START MODE 
ALWAYS IDLE 
BRWRTE IMM, 327 :CLEAR START MODE 
p BR, AANDS, SP1C :IN LINE STATUS 


S 
ALWAYS RDS 
END 


BoSHBH ASS PR bet Fe Tie — Revie ROUTINE to hanBEE” Testa 10 BYspaTcH NUMBERED AND UNNUMBERED TYPES — en 
; RHRRERERRRHREREERTIME CRITICAL CODE-- CHANGE WITH GREAT CARE exneeeeceeenesenees 


1090 
T VKO1--ROUTINE TO HANDLE FIRST BYTE ODD R 
183s 013404 ROVKOL: Bir . 1g s APR’ aa BED RBp Reet bce 
(i) 000607 ICPC=MIC RI 
cL) 013404 123600 <MOVE ! SPBRX! IBUS! NPR! SPO> 
1093 013406 Q pbe 
C1) 0 MICPC=MICPC41 
ub 013406 rea NSM? BROCONE < IDLE-INIT83O00%4> ! < IDLE-INIT8777/2)> 
1094 013410 BRWRTE IMM, 200 ;MASK FOR CO(BYTE TRANSFER) 
(1) 900611 MICPC=MICPC41 
1) 013410 O00600 «MOVE! WRTEBR! IMM! <200> > 
1995 001 .IF NOF SLOW 
109% o13412 SP BR, AORB, SPO 
(1) 000612 MICPC=MICPC+1 
1) 013412 063300 «MOVE! SPX! BR! AORB! SPO> 
1097 000 .ENDC 
1098 001 "IF OF SLOW 
1099 OUT BR, <AORB! ONPR> : TURN ON CO 
1100 000 
1101 013414 STATE RKEL 
(1) 000613 MICPC=MICPC+1 
(1) 013414 9900653 (MOVE !WRTEBR! IMM! <RKEL-INIT&8777/2>> 
1102 013416 ALWAYS RCVKO2 
(1) 000614 MICPC=MICPC+1 
) 013416 104620 < JUMP! ALCOND! <RCVKO2-INIT&3000#4> ! <RCVKO2-INIT8777/2>> 
1103 TTL R VKO=-PRO SS ODD CHARACTER 
1104 013420 RCVKO: eBBR RENO NP Ree ;IS AN NPR GOING 
1) 000615 MICPC= MICE C+ Si 
(1) 013420 123600 reer | meres 
ll F 
{tbe 013422 — BAD _ aed IF SO, REITERATE ODD AND EXIT 
(1) 0006 16 MICPC=MICPC+1 
(1) 013422 106247 (JUMP! BROCON! <RK&6-INIT83000%4> ! <RKG6-INIT877772>> 
Hee if Phe poy 
1109 Ri IOLE :IF SO, GO BACK TO IDLE LOOP 
1110 000 ‘ 
1111 013424 STATE RCVKE 
(1) 00617 Rice =MICPC+ 
(1) 13424 O006=5 <n MESWRTEBR? IMM RCVKE-INIT8777/2)> 
1ie 013426 RCVKO2: * ,SP3 ;SET STATE 
(4) 013426 ppgese fice ae 2 ie: 
1113 013430 OUTPUT IBUS,RCVDAT! OUTDA2 OUTPUT A CHAR 
(1) 000621 MICPC=MICPC+ 
1) 013430 922203 <MOVE ! WROUT! TBUS! <RCVDAT! OUTDA2> > 
1114 013432 RK8:  BRWRTE IMM,21 ;SET OUT NPR (C1) AND NPR REQ 


~ . * 
+ b= 6 & bb he he oe 


013432 


013434 
913434 
013436 
013436 
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001 
000 
000623 
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RCVKO--PROCESS ODD CHARACTER 


MICPC=MICPC+1 
«MOVE! URTEBR! IMM! <21> > 


.IF OF $LOW 
sf IBUS, NPR, SPO 


OUT BR, <AORB! ONPR> 
MICPC=NICPC+1 
<MOVE! WROUTX! BR! <ARORB! ONPR> > 


ALWAYS IDLE 
MICPC= 


PAGE: 


;READ NPR REGISTER 
;WRITE NPR REGISTER 


MICPC+1 
«JUMP! ALCOND! < IDLE-INIT&3000%4> ! <IDLE-INIT877772> > 
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DDCHGH.MAC  Ob6-DEC-76 11:34 RCVKE--HANDLE EVEN BYTES 
RCVKE--HANDLE EVEN BYTES 
t}S4 013440 RCVKE: aebaTE fiches NP ;READ NPR CONTROL REGISTER 
(1) 000625 MICPC=MICPC+ 
(1) 013440 126600 (MOVE! WRTEBR! IBUS! <NPR> > 
1133 001 .IF NOF SLOW 
1104 o1344e BRY RKY ;IF RECV NPR--BRANCH 
1) 000626 MICPC=MICPC+1 
1) 013442 107251 < JUMP! BRYCON! <RK4-INIT&3000%4> ! <RKY-INIT8777/2>> 
1125 000 .ENDC 
1126 001 “IF OF SLOW 
i158 000 BNO -_ 
+158 013444 RKS: 2 Bus IOBA1 , SPO ;READ LOW BYTE OF BA TO SP 
(1) 000627 MICPC=MICPC+1 
(1) 013444 023140 «MOVE! SPX! IBUS! IOBAL! SPO> 
1130 013446 OUTPUT pp (INCA! OBAL? ;WRITE INCREMENTED BA 
(1) 009830 MICPC=MICPC+ 
Ch) 013446 O62066 (MOVE! WROUT! DP! < INCA! OBAL>> 
\ 
1131 033450 RKSO: SP BR, DECA, SP4 ;DECREMENT CHARACTER COUNT 
(1) p96 MICP snrcpcsl 
(1) 013450 164 «MOVE! SPX! BR! DECA! SP4> 
1132 013452 C 10$ :NO OVERFLOW 
(1) 000632 MICPC=MICPC+1 
(1) 0134S2 105235 < JUMP! CCOND! < 10$-INIT&3000%4> ! < 10$-INIT&777/2> > 
1133 013454 sp BR, DECA, SPS ;OVERFLOW - DECREMENT HIGH BYTE 
(1) 000633 MICPC=MICPC+1 
Ch) 013454 063165 <MOVE ! SPX! BR! DECA! SPS> 
1134 013456 2 RL3 :BYTE COUNT ZERO 
(1) 000634 MICPC=MICPC+1 
1) 013456 105711 < JUMP! ZCOND! <RL3-INIT&3000#4> ! <RL3-INIT8777/2>> 
1135 013460 10$: | OUTPUT IBUS, <RCVDAT!OUTDAL> ;READ CHARACTER AND WRITE IT 
(1) 000635 MICPC=MICPC+i 
(1) 013460 O22et2 <MOVE !WROUT! IBUS! <RCVDAT! OUTDAL>> 
1136 013462 SP Bus 10BA1, SPO ;READ INCREMENTED BA 
(1) 000636 MICPC=MICPC+1 
(1) 013462 023140 (MOVE! SPX! IBUS! IOBAL! SPO> 
1137 G13464 OUTPUT DP < INCA! OBAL> ;WRITE INCREMENTED BA 
(13 000637 MICPC=MICPC+1 
(h) 013464 O62066 <MOVE ! WROUT! DP! < INCA! OBAL>> 
1138 O12466 C Icanee IF CARRY INC BA HIGH 
(1) 000640 MICPC=MICPC+1 
(1) C13466 115035 < JUMP! CCOND! < ICBA22- INI TS3000%4> ! « ICBA22-INIT$777/2>> 
y] 
1139 013470 RK3: SP BR, DECA, SPY ;DECREMENT THE COUNT OF BYTES 
a8) 000641 MICPC=MICPC+1 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-49 PAGE: O115 
DOCHGH. MAC O6-DEC-76 11:34 RCVKE--HANDLE EVEN BYTES 


i 
RKB: STATE RCVKO 


Ce oe a on oe ooo 


(1) 013470 063164 «MOVE! SPX! BR! DECA! SP4> 
1140 013472 C RKb :NO OVERFLOW 
(1) 000642 MICPC=MICPC+1 
<1) 013472 105245 < JUMP! CCOND! <RK6-INIT&3000%4> ! <RK6-INIT8777/2> > 
114i 013474 SP BR, DECA, SPS sDECREMENT HIGH BYTE OF COUNT 
(1) 000643 MICPC=MICPC+1 
(1) 013474 063165 <MOVE! SPX! BR! DECA! SPS> 
1142 013476 2 y ;BYTE COUNT ZERO 
(1) 000644 ficecamtcbc+1 | 
() 013476 111772 < JUMP! ZCOND! <RL4Y-INIT&3000%4> ! <RLY-INIT&77772) > 
4 IF 
tig 013500 = RK6: ake feos RCVCON READ RECEIVER CONTROL REGISTER 
(1) 000645 MICPC=MICPC+1 
(1) 013500 O20640 <MOVE! WRTEBR! IBUS! <RCVCON> > 
1145 013502 BRY RCVKO IF ANOTHER CHARACTER--PROCESS 
(1) 000646 MICPC=MICPC+1 
1) 013502 107215 < JUMP! BRYCON! <RCVKO-INIT&3000%4> ! <RCVKO-INIT8777/2>> 
1146 013504 = RKGE: STATE RCVKO 
ae = 
(1) 013504 BBDE IS Mee ae SRT IMM! <RCVKO-INIT8777/2)> 
oa, misteuteey 
1) 013506 100450 MEP TAL COND! <REXIT-INIT&3000#4> # <REXIT-INIT8777/2)> 
1148 013510 RK4¥: BRO IDLE 
(1) 000651 MICPC=MICPC+1 
(1) 013510 102051 < JUMP! BROCON! < IDLE-INIT83000%4> ! < IDLE-INIT&777/2>> 
1149 013512 ALWAYS RKS ;IF NO NPR --PROCESS 
(1) po06s2 MICPC=MICPC+1 
(1) 013512 104627 < JUMP! ALCOND! <RKS-INIT&3000#4> ! <RKS-INIT8777/2> > 
150 00 -ENOC 
15 001 "IF OF $LO 
153 ALWAYS REXIT 
154 000 .ENDC 

156 013514 RKE1:  §P IBUS, NPR, SPO ;READ NPR REGISTER 

(1) 000653 MICPC=MICPC+1 

(1) 013514 123200 <MOVE! SPX! IBUS! NPR! SPO> 
1157 001 .IF NOF SLOW 
1158 013516 BRO IDOLE :NPR STILL IN PROGRESS 

(1) 000654 NICPC=NICPC +1 

(1) 013516 102051 < JUMP! BROCON! < IDLE-INIT&3000%4> ! < IDLE-INIT877772>> 
1159 000 .ENDC 
1166 012520 BRWRTE IMM sMASK FOR ALL BUT CO 

> 


177 
oo0Ess MICPC=MICPC41! 


09 


BR? PASWRD 
000663 MICPC=MICPC+ 
013534 117576 JMB! BRYCON! <PASWRO-INIT83000%4> ! <PASMRD-INIT8777/2)> 
013536 ALWAYS RK3 ;OTHERWISE PROCESS NORMALLY 
000664 MICPC=MICPC+1 
013536 104641 < JUMP! ALCOND! <RK3-INIT83000#4> ! <RK3-INIT&77772>> 


- 


MC11 DDCMP PROT MPLEMENTATION MACY11 27(10 14-DEC-76 16:44 PAGE 6-S0 PAGE: O116 
tect eee ee RCVKE-- cate apes 
tf 013520 000577 (MOVE! WRTEBR! IMM! <177>> 
1161 013522 OUT BR, <AANDB! ONPR> ; TURN OFF ALL BUT CO 
(1) 000656 MICPC=MICPC+1 
i 013S22 061270 (MOVE! WROUTX! BR! <AANDB! ONPR> > 
1162 013524 ALWAYS _RKSO 
(1) 000657 MICPC=MICPC+1 
tt 013524 104631 « JUMP! ALCOND! <RKSO-INIT&3000%4> ! <RKSO-INIT&77772>> 
13 ; REXHHARREREEHRREEKEND OF TIME CRITICAL PATHHHHMEHARHRH EERE ERA ERE EEE RAE EERE EEE 
1165 013526 RCVKEO: SP IBUS , RCVDAT, SPO ;READ CHARACTER AND SAVE IN SPO 
(1) 000660 MICPC=MICPC+i 
se 013526 023200 «MOVE! SPX! IBUS! RCVDAT! SPO> 
1166 013530 OUTPUT BR, <SELA! OUTDAL> ;SEND NONSENSE CHARACTER 
(1) 000661 MICPC=MICPC+1 
sh 013530 Ob62202 «MOVE! WROUT! BR! <SELA! OUTDAL>> 
1167 013532 BRWRTE SELA!SP1 ;READ STATUS BYTE 
(1) 0006 MICPC=MICPC+1 
Se 0i3532 060601 «MOVE! WRTEBR! BR! <SELA!SP1>> 
1168 013534 ;MAINT MODE - SEE IF RLD MESSAGE 
( 
( 
1 
( 
4 
{ 


b= + (Mp 
ded eed 


NO9 


DMC11 DDCMP PROTOCOL IMPLEMENTATION  MACY11 27(1006) 14-DEC-76 1g:44 PAGE 6-51 PAGE: 90117 
ODCHGH.MAC  06-DEC-76 11:34 RCVI--STORE UNNUMBERED MESSAGE TYPE 

? TTL RCVI--STOR RED nESSAGE TYPE 

1154 oigsyo Revi: Be ious Rev OAT, SPL UNNUMBERED TYPE 

(1) 000665 nicpcentcecel 

(1) 013640 023213 <MOVE ! SPX! IBUS! RCVDAT! SP13> 

1172 013542 STATE _RCVJ sNEXT STATE IS J 

(1) 000666 MICPC=MICPC+1 

(1) 013542 000670 <MOVELNRTEBR# IMM! <RCVJ-INIT8777/2) 

1174 013544 nee x1 

(1) cans6? NICPC=HTCRC 

M) 013544 100450 SMP TAL COND! <REXIT-INIT&3O00%4) ! <REXIT-INIT8777/2)> 

1175 ; 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-S2 PAGE: 118 
DOCHGH.MAC  O6-DEC-76 11:34 RCVJ--ROUTINE TO HANDLE SUBTYPE FIELD. SELECT AND FINAL 

1177 .SBTTL RCVJ--ROUTINE TO HANDLE SUBTYPE FIELD,SELECT AND FINAL 

1178 013546 RCV: 

1179 001 .IF DF $LOW 

1180 ALWAYS SELQSY ;"CALL” SELECT AND QSYNC SUBROUTINE 

i181 000 .ENDC 

1182 001 .IF NOF $LOW 

1183 oO13546 Sp IBUS,, RCVDAT, SPS ;GET CHARACTER 

(1) 000670 MICPC=MICPC+1 

(1) 013546 023205 «MOVE! SPX! IBUS!RCVDAT! SPS> 

1184 013550 BRWRTE IMM, 200 ;CONDITIONALLY SET BIT 

(1) 000671 MICPC=MICPCH1 

(1) 013550 O90600 «MOVE! WATESRE IMM! <200> 

1185 o13SS2 BRWRTE BR,AANDB! SPS 

(1) 000672 MICPC=MICPC+1 

(1) 013552 O60665 <MOVE! WRTEBR! BR! <AANDB! SPS > 

1186 013554 sp BR, AORB, SP10 

(1) 000673 MICPC=MICPC+1 

(1) 013554 063310 «MOVE! SPX! BR! AORB! SP10> 

4 

1187 ooc .ENDC 

1188 013556 STATE RCVR :NEXT STATE IS N 

(1) 800674 MICPC=MICPC+1 

(1) 013556 000676 <HOVE WRTEBR? IMM! «RCVR- INIT&77772>> 

1189 013560 ALWAYS REX I 

(1) 000675 MICPC=MICPC 

1) 013560 100450 CJUMP TAL COND! <REXIT-INIT&3000#4) ! <REXIT- INIT8777/2>> 

a} 


OMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 27( 1006) site B 16:44 PAGE 6-53 PAGE: 0119 
DDCHGH. MAC O6-DEC-76 11:34 RCVR--UNNUMBERED MESSAGE RESPONSE FIELD 


1191 .SBTTL RCVR--UNNUMBERED MESSAGE RESPONSE FIELD 
i 138 ;ENTERED FROM IDLE LOOP 

1194 013562 RCVR:  BRWRTE IMM.3 ;REP MESSAGE TYPE TO BR 

(1) 000676 MICPC=MICPC41 

(1) 013562 000403 (MOVE! WRTEBR! IMM! <3>> 

1195 013564 NOP BR, SUB, SP13 ;IS TYPE ACK OR NAK 

(1) 000677 MICPC=MICPC+1 

(1) 013564 060353 <BR! SUB! SP13> 

1196 013566 STATE RCVQ ;NEXT STATE IS RCVG 

(1) 000700 MICPC=MICPC+1 

(1) 013566 000703 CMOVETHRTEBR! IMM! <RCVO- eoeinceiie* 

1197 ¥*NOTE THIS INSTR DOES NOT CLOCK "C” 
1198 013570 C cv | ite NOT IGNORE 

(1) 000701 MICPC=MICPC+1 

(1) 013570 105131 «JUMP! CCOND! <RCVF 1-INIT&3000%4> ! <RCVF 1-INIT&77772> > 

1199 013572 ALWAYS RD2 ;D0 RANGE CHECKS 

(1) 000702 MICPC=MICPC+1 

(1) 013572 104473 < JUMP! ALCOND! <RD2-INIT&3000#4> ! <RD2-INIT&777/2>> 


Cil DOCMP PROTOCOL IMPLEMENTATION 
CHGH. MAC O6-DEC-76 11:34 
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MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-S4 PAGE: 
RCVQ--UNNUMBERED MESSAGE--NUMBER FIELD 

.SBTTL RCVQ--UNNUMBERED MESSAGE--NUMBER FIELD 

sENTER FROM IDLE 
reve: TATE _RCVF ;NEXT STATE IS ADDRESS 


E 
MICPC=MICPC+1 
«MOVE! URTEBR Tim! cACYF- INIT877772>> 


ALWAYS 
MICPC=MICPC+1 
CTUMP? ALCOND! <RCVF 1-INITS3000«4 ! <RCVF 1-INIT8777/2> > 


0120 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-SS PAGE: 121 
OCCHGH. MAC O6-DEC-76 11:34 RCVL--PROCESS CRC3 


1207 CESS CRC3 
15Re jEnteReD FRO IBLE Cote 
1209 013600 RCVL: :READ NPR CONTROL 
C1) 900705 nreeoamcets ap 
ti) 913600 123600 rt Cot use ner: SPO» 
1210 001 IF NOF $LOW 
igi? 013602 aay at? RCV NPR BRANCH 
(1) 00070 MICPC=MICPC+1 
ib) 013692 107314 (JUMP! BRYCON! <RL1-INIT$3000#4> ! “RL1-INIT877772>> 
121e 096 -ENDC 
15i6 O01 “IF OF SLOW 
1214 BRO IDLE 
1215 000 -ENDC 
1216 013604 RL2:  BRWRTE IN 17% MASK TO TURN OFF CO 
(1) 900707 MICPC=MICPC 
) 013604 000576 CHOVETWRTEBR! IMM! <176)> 
1217 013606 7 BR, AANDB! ONPR 
(1) 013606 ata RIG a Mom. 
1218 
1219 013610 RL3: 1Bus RCVDAT, 0 sINPUT CHARACTER AND DISCARD 
(1) poor 1 ie Pcs NICPC 
cD) 013610 O202 CTBUS? RCVDAT? D> 
1220 013612 STATE cy 
(1) 000712 MICPC=MICPC+1 
(1) 613612 900716 <MOVE 1MRTEBR# IMM! <RCVM-INIT8777/2> > 
1221 013614 R T 
(1) 000713 MICPCENICRC#I 
1) 013614 1004 JUMP! ALCOND! <REXIT-INIT&3000#4> ! <REXIT-INIT8777/2>> 
1222 , 
1223 901 "IF NDF SLOW "2 
1224 C13616 RL1: BRO IDLE, ;NPR GOING --GET OUT 
(1) 000714 MICPC=MICPC+1 
a) 013616 102051 < JUMP! BROCON! < IDLE-INIT&3000%4> ! < IDLE-INIT8777/2>> 
1225 012620 aL HAY S.Bbe, 
(1) 900715 MICPC=MICPC+1 
(1) 913620 104707 M SMB? nL CONDE <RL2-INITS3000#4> ! <RL2-INIT38777/2>> 
1236 050 LENDC 
lez? 4 


OMe11 a PROTOCOL bok “tepeet 
O6-DEC-76 11:34 
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ie a ae 


013622 
0136e2 
013624 
013624 
013626 
013626 
013630 
013630 
013632 
013632 
013634 
013634 
013636 
013636 
013640 


0:364C 


012642 
013642 
013644 
013644 
013646 


C13646 


000716 
120620 
000717 
106351 


000720 
023200 


900724 
107740 
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MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-S6 PRGE: 


F10 


RCVM--PROCESS CRC4--END OF DATA MESSAGE 


RCVM: 


Bi hea" ibe TERE ESOP OF DATA MESSAGE 


RC CORRECT -- QUEUE INTERUPT AND UPDATE RESPONSE 


ur BC wnone SEND NAK 
BRUATE BUS USER ;READ UNIBUS BR REGISTER 


ret pc+i 

(MOVE! WRTEBR! IBUS! <UBBR> > 
BRO NXMERR ;NON-EXISTANT MEMOR/ 
MICPC=MICPC+ 1 
< JUMP! BROCON! <NXMERR~INIT82000#4> ! NXMERR-INIT8777/2> > 
SP TBUS, RCVDAT, SPO ;READ CRC CHARACTER 
MICPC=MICPC+] 
«MOVE! SPX! IBUS! RCVDAT! SPO> 
BRWRTE RCVCON 
MICPC=MI Bee 
(MOVE! WRTEBR! IBUS! <RCYCOND > 
BRO RCVM1 IF CRC GOOD -- PROCESS 
ait AB THASCONS <RCVML- -INIT$3000%4> ! <RCVM1-INIT8777/2> > 

WRTE ®BR,SELA!SP! READ STGTUS BYTE 


BR 
MICPC=MICPC41 
(MOVE! WRTEBR! BR! <SELA!SP1>> 


;READ RECEIVER CONTROL REGISTER 


BR? ;CRC ERROR IN BOOT MODE - FLUSH 
AICPCEMIGPC +1 
« JUMP! BR7CON! <RHX-INIT&3000#4> ! <RHX-INIT877772>> 


LOMA IMM, T sELSE SENC NAK --DATA ERROR 
MICPC=MICPC41 

.IF IDN IMM, IMM 

<MOVE !LDMAR! IMM! <T3377>> 


“MOVE! LDMAR! IMM!<T>> 
.ENDC 


NECPCCN :NAK TYPE 
MOVE? AIEEE wan rm <> 
MEMINC IMM, 302 :;DATA ERROR SUBTYPE 


Niece ICPC+1 
UMOVE TURMEM! TNCMAR! IMI! «3029 ? 


LDMA _— IMM. NDATS 
MICPC=MICPC41 

IF ION IMM, Thm 

“MOVE! LDMAR! IMM! <NDATS8377>> 


<MOVE!LDMAR! IMM! <NDATS> > 
.ENDC 


Jl22 
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cil cocN PROTOCOL IMPLEMENTATION MACYL1 27(1006) 14-DEC-76 16:44 PAGE 6-57 PAGE: 
fis GH. MA N6-DEC-76 11:34 RCVM--PROCESS CRC4--END OF DATA MESSAGE 
(1) 
1245 013650 SEND NAK 
ae 000731 RCP 
(1) 913880 104552 UMP? ALCOND! <RHS~INIT83000#4) <RHS-INIT$777 2) > 
124 
154 013652 RCVMO: LDMA IMM, <<RTHRS+3>> sPOINT TO ERROR WORD 
1} 909732 HICPC=MICPC PC$1 
(2) 001 F ION IMM IMM 
(1) 013682 010177 HOVE !LDMAR! It? « <RTHRS+3) 8377> 
(1) (MOVE! LOMAR! IMM! <<RTHRS+3> >> 
WD) oc ENDC 
we 
1248 913654 BRWRTE IMM,10 ;MAINT MESSAGE ERROR 
(1) 0007323 MICPC=MICPC41 
iD 013654 900413 CHOVETWATESR! IMM! (10> 
ii) 
1243 013656 ALWAYS RCEXY GIVE FATAL ERROR 
CL) 900734 MICPC=MICPC+1 
(1) 01265& 114522 STUMP? AL SOND! <RCEXY-INITS3O9084> # <RCEXY-INITS777"2>> 


Cll COCMP PROTOCOL i EMENTATION MACY11 27(1006) a's Sie 16:44 PAGE &-S8 PASE: 


SOT HBH. MAC  O6-DEC-76 11:34 EM2--PROCESS RLD MESS 
125 .SBTTL EM2--PROC ss RLD MESSAGE 
{522 sENTER EDF SEO IDL oop 
1253 rT PASSWORD CHECKS TRIGGER THE BOOT ROM 
i2dsS 013660 EM2:  BRWRTE IBUS,RCVDAT READ THE CHAR 
(13 090735 MICPC=MICPC+] 
1) 013660 920600 (MOVE! WRTEBR! IBUS! <RCVDAT> > 
1256 013662 cH sIS IT A MATS 
C1) 000736 MICPC=MI mreeesi 
WD) 013662 060373 <SUBTC! BR? SP13> 
\ 
1257 013664 2 EM3 
1) 000727 MICPC=MICPC+1 
ae 013664 105746 IGMP? 2COND! CEM3-INITS3000%#4> ! <EM3- ~INIT8777/2)> 
1258 FALL INTO 
1259 013666 RHX:  BRWRTE BR,AA!SP! : READ an eue nBYTE SHIFTED LEFT 
(1) n00740 MICPC=MICPC+1 
(1) O13666 060521 <MOVE! WRTEBR! TBR! <ARESPL> > 
1260 013670 BRY 10$ :DLE RECEIVED IN NORMAL MODE 
(1) 900741 MICPC=MICPC+1 
db) 913670 107343 < JUMP! BRYCON! < 10$-INIT&3000%4> !« 10$-INIT&8777/2>> 
, 
1261 013672 ALWAYS FLUSH sALREADY IN MAINT MODE 
C1) 000742 MICPC=MICPC+1 
uD) 013672 i04415 < JUMP! ALCOND! <FLUSH-INIT&3CO0#4> ! <FLUSH-INIT8777/2> > 
1262 013674 10$:  BRWRTE IMM, 163 “MASK TO CLEAR ALL MAINT RELATED 9ITS 
1) 960743 MICPC=MICPC41 
1) 013674 o9c0s62 (MOVE! WRTEBR! IMM! <163>> 
1263 013676 sp BR, AANDB, SP1 CLEAR THEM 
(1) 900744 MICPC=MICPC+1 
) 013676 06226! <MOVE! SPX! BR! AANDB!SP 1 > 
3 
1264 0137C0 ALWAYS FLUSH 
(1) 900745 MICPC=MICPC+1 = 
(dh) 013700 joss < JUMP! ALCOND! <FLUSH-INIT&300G%4> ! <FLUSH-INIT3777/2> > 
1265 
126 013702 EM2: SP BR, DECA, SPY sDECREMENT CHARACTER COUNT BY ONE 
(1) 900746 MICPC=MICPC+1 
1) 013702 S63164 <MOVE ! SPX! BR! DECA! SP4> 
1267 013704 2 EMTRIG TRIGGER AC LOW 
3 000747 MICPC=MICPC+1 
1) 013704 115712 < JUMP! ZCOND! <EMTRIG-INITS3OCO#4> ! <EMTRIG-INITS777"2> °° 
(i) 
1268 912706 ALWAYS IDLE 
(1) 000750 MICPC=MICPC+1 
(1) 013708 iS0451 TUMB 1 ALCOND# < IDLE- -INITS3000#4> ! < IDLE-INIT$777/2>> 


oct DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-59 PAGE : 
COCHGH. MAC O6-DEC-76 11:24 EM2--PROCESS RLD MESSAGE 


70 
1539 as ripF neReRR ---NON EXISTANT MEMORY HANDLER 
1272 013710 NXMERR: LOMA IMM, < <RTHRS+3) > ;ADDRESS ERROR LINK 
(1) 00C75 MICPC+ 
{]) ton MM. IMM 
tt 013710 0101 <AOy TLOMAR! IMM! < <RTHRS+3>8377> > 
C1) (MOVE! LOMAR! IMM! < <RTHRS#3> >> 
(4 001 .ENDC 
1272 013712 MEMINC IMM. 1 
C1) 900752 MICPC=MICPC41 
1) 013712 i640! «MOVE! WRMEM! INCMAR! IMM! < 1>> 
1274 913714 ne xn :NXM ERROR SIT 
{1} 000753 mIcpc=mrcpct 
) 013714 c02400 «MOVE! WRMEM! IMM! <Q>> 
{ 
1275 013716 MEMX SELB, SP10 :CLEAR STATUS 
it} eet rigees ett 
ih) 013716 043230 VEIS Xi MEMX! SELB! SP19> 
\ 
1278 013720 ALWAYS RCEXX 
(1) __ 900755 MICPC=MICPC+1 
(1) 013720 114524 < JUMP! ALCOND! <RCEXX-INITS3009%4> ! <RCEXX-INIT8777/2 
ra 


J10 


OMC11 DDOCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-60 PAGE: O126 
DDCHGH . MAC O6-DEC-76 11:34 NXMERR ---NON EXISTANT MEMORY HANDLER 


i ef 


- F SLOW 
“SBTTL SELQSY--ROUTINETOCHECK SELECT AND QSYNC AND DIDDLE LINE STATUS WORD 


Y FIRST INSTR e 
158d SELQSY: spar "tous REV GPE” oe oe Th BOP RARACTERINTO SPS ANC THE SR 
1283 SELECT tr NCH 
1284 S$: OR URTE 8 Aa! SPS Pie 
ieee ? i, 
1 10S: RWRTE IMM, 77 Se 
1287 SP BR, AANDB, SPS TORN OFF SELECTANDFINAL 
1388 “ALWAY BR, INCA, SP3! PAGEL 
1290 iS$: | BRWRTE IMM, 200 :SET OK TO SEND 
isa) aa r ,AORB, SP10 IN LINE STATUS WORD 
I 20S: Were MM, 20 ; SETCLEARACTIVE 
1294 SP BR, AORB, SP10 “IN LINE STATUS WORC 
1295 ALWAYS 10$ 
1 E -PA 
129 p00 
1298 , 
1299 013722 BOOT:  BRWRTE BR,SELA!SP1 :SEE IF IN MAINT. MODE 
(1) 090756 NICPC=NICPC#| 
(1) 013722 060691 'WRTEBR!BR! <SELA!SP1>> 
1460 013724 BR? RAZ sBRANCH IF SO AND TREAT OLE LIKE NUM. MSG. 
(1) 000757 MICPC=MICPC+41 
(1) 913724 103742 < JUMP! BR7CON! <RA-INITS$3000#4> ! <RAZ-INIT8777/2>> 
1301 013726 BRWRTE IMM,210 sMASK TO SET MAINT MODE AND DLE REC'D 
(1) 000760 MICPC=MICPC+1 
(1) 013726 000619 (MOVE! WRTEBR! IMM! <210>> 
1462 013730 SP BR, AORB, SP! SET THE BITS 
(1) 000761 MICPC=MICPC+1 
1) 013730 06330! (MOVE! SPX! BR! AORB! SP1> 
1303 013732 a Hay RaQ, ; TREAT LIKE NUMBERED MESSAGE 
(1) 000762 M Het en Te CPC+1 
() 013732 Top 78S JUMP! ALCOND! <RA3-INITS&3000%4> ! <RAS-INIT8777/2>> 
1304 012734 ia RESEXT: BRURTE Imm 4 :ADD TO MXT BITS 
(1) 013734 BB4Ba SAS VETWATESRE IMM! <4>> 
1305 0613736 SP BR, ADD, SPO 
(1) 000764 MICPC=MICPC+1 
ft) 013736 063000 <MOVE !SPX! BR! ADD! SPO> 
1306 013740 ALWAYS TH3X 
(1) 000765 MICPC=MICPC+1 
) 013740 110601 CTUMP! AL COND! <THAX=INITS3O00%4> # <THX-INIT8?777/2>> 
1307 013742 TABMXT: BRWRTE IMM,4 INCREMENT MXT 
C13 COO7bE MICPC=MICPC41 
(1) 013742 O00404 (MOVE! WRTEBR! IMM! <4>> 
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0 bb bb = bb 0 0 = be  O -  - 
— 


—_— 


[a Se od 
OS RN OSS RON NS RON NNN EN IIS OO OID OO NI) OO me Do on ee en or eo 


TOPO MPN MPM MUNI 
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013744 
013744 
013746 
013746 
013750 
013750 


013752 
013752 
013754 
013754 


013756 
013756 
013760 
013760 
013762 
013762 
013764 
013764 


000767 
123220 


000770 
061011 


000771 
114761 


000772 
00040e 


000773 
114663 


ooc004 


000774 
000000 


000775 
ooccoo 


000776 
000000 


000777 
000000 
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27(1006) 14-DEC-76 16:44 PAGE 6-61 PACE: 
---NON EXISTANT MEMORY HANDLER 


SP IBUS, UBBR, SPO ;READ BR CONTROL 
MICPC=MICPC+1 
«MOVE! SPX! TBUS! UBBR! SPO> 

BR, ADD! OBR 


OUT 
MICPC=MICPC+1 
«MOVE! TROUTXEBR! “ADD! OBR> > 


ALWAYS ECX 
MICPC=MICPC+1 
<« JUMP! ALCOND! <ECX-INIT&3000#4> ! <ECX-INIT877772>> 


+ BRURTE IMM, 2 
MICPC=MICPCH1 

(MOVE! WRTEBR! IMM! <2>> 

ALWAYS ERRXX 

MICPC=MICPC+1 

< JUMP! ALCOND! <ERRXX-INIT&3000#4> ! «ERRXX-INIT877772>> 


.REPT 4 
$ZERO 
MICPC=MICPC+1 
000000 
$ZERO 
MICPC=MICPC+1 
ooo000 
$ZERO 
MICPC=MICPC+1 
000000 


$ZERO 
MICPC=MICPC+1 
oco00c0 


L10 


DMC11 ODCMP PROTOCOL IMPLEMENTATION MACY 27(1006) | I4ADEC-76 6:44 PAGE 6-62 PAGE: 128 
ODCHGH.MAC  Ob-DEC-76 11:34 NXMERR ---NON EXISTANT MEMORY HANDLER 
7 . INI T+2000 
1316 BAe 88 mIepeer oe 
1320 “SBTTL TMTDA--TRANSMITTER DISPATCH ROUTINE 
1321 
i332 0137 TMTDA: E _IBUS, TNTCON ;READ TRANMITTER CONTROL REGISTER 
tee O1S766 an oo0 . BRHBTE, ABLE) . 
(1) 913766 20620 (MOVE ! WRTEBR! IBUS! <TMTCON> > 
1323 013770 ans PR an Bee SHLAs <2tPAGER? SIF READY PROCEED 
1) 01370 173202 “JUMP! BRYCON! DP! SELA! 2! PAGE2> 
1964 013772 al a, Bae! sELSE IDLE 
Cl) 4) CP 
1) o1s77e 100888 MTGMBT aU CONDE ¢ 11-INITS3000%4> # <11-INIT8777/2)> 
ie 


M10 


OMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-63 PAGE: 0129 
DDOSHGH.MAC  O68-DEC-76 11:34 TMTA--FIRST CHARACTER OF HEADER 
1326 .SBTTL TMTA--FIRST CHARACTER OF HEADER 
132 ; 
1358 eats 001 — IF DF $LOW 
1339 BRWRTE BR AA!SP1O ;SHIFT LEFT 
1331 BR? CYCK 
1333 000 _ 
1334 013774 BRWR BR SE SELA!SP10 ;REREAD STATUS 
(1) 001003 SRO CeM IEE 
(1) 013774 060610 «MOVE! A YEBR! BR! <SELA! SP10>> 
1335 013776 BRO NUMSYN ;IF UNNUMBPENDING -- SEND IT 
(1) 001004 MICPC=MICPC41 
(1) 013776 112007 < JUMP! BROCON! <NOMSYN-INIT&3000#4> ! <NUMSYN-INIT8777/2>> 
1336 014000 BRSHFT 
(1) 001005 MICPC=MICPC+1 
(1) 014000 001620 «MOVE! SHF TBR! WRTEBR! SELB> 
1337 014002 BRY IDLEO IF START MODE--EXIT 
(1) 001006 MICPC=MICPC+1 
5 Oi4002 103063 « JUMP! BRYCON! < IDLEO-INIT&3000%4> !< IDLEQ-INIT&77772>> 
1338 001 bh .IF OF SLOW 
1339 BRI NUMSYN ;IF LINE HAS GONE IDLE SEND SYN 
1340 :ELSE--START TO SEND MESSAGE 
1341 000 .ENDC 
1342 001 * .. IF NOF SLOW 
1343 014004 NUMSYN: BRWRTE BR. <SELA!SP1O> ;READ LINE STATUS WORD 
(1) 001007 MICPC=MICPC+1 
(1) 014004 060610 MNOVETIRTEBR!BR! <SELA!SP1O) > 
1344 014006 BR? S$ ;IF OK TO SEND--PROCEED 
(1) 001010 MICPC=MICPC+1 
(1) 014006 113412 < JUMP! BR7CON! <S$-INIT&3000%4> ! <S$-INIT&777/2>> 
1345 014010 ALWAYS I] ;ELSE--IDLE 
(1) 001011 MICESeNICPC# 
(1) 014010 100454 < JUMP! ALCOND! <I-INITS3000%4> # <I1- INIT877772>> 
1346 014012 Ss: BRWRTE IBUS, MODEM ;ARE WE STILL SENDING? 
(1) 001012 MICPC=MICPC+1 
(1) 014012 O20660 (MOVE! WRTEBR! IBUS! <MODEM> > 
ian eben 1013 Ric 
(1) 014014 nate i 
1348 O14016 BRY Il :RTS SET? IF SO WE ARE--STALL 
(1) 001014 MICPC=MICPC+1 
(1) 014016 103054 < JUMP! BRYCON! <11-INIT&3000"4> ! <I1-INIT877772>> 
1349 014020 BRWRTE IMM,373 ;MASK TO TURN OFFLINE IDLE 
(1) 901015 MICPC=MICPC+1 
(1) 014020 000773 (MOVE! WRTEBR! IMM! <373>> 


mm ee ere se te rere tte ee - 


DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-64 PAGE: 0130 
0D - MAC :34 ADER 


06-DEC-76 11:3 TMTA--FIRST CHARACTER OF HE: 
14h 014022 sp BR, AANDB, SP10 ;IN LINE STATUS WORD 
(1) 001016 MICPC=MICPC+1 i 
(1) 014022 063270 «MOVE! SPX! BP! AANDB! SP10> 
1351 014024 TSTATE TMTAL 
(1) 001017 MICPC=MICPC+1 
(1) 014024 900424 <MOVE! WRTEBR! IMM! < TMTAL-INIT&777/2>> 
(1) 001020 MICPC=MICPC+1 
(1) 014026 063222 <MOVE! SPX! BR! SELB! SP2> 
1352 014030 BRWRTE IMM, 12 
(1) 001021 MICPC=MICPCH1 
(1) 014030 o00412 (MOVE! WRTEBR! IMM! <12>> 
1353 014032 SP BR, SELB, SP& ;STORE IN SP6 
(1) 001022 MICPC=MICPC+1 
(1) 014032 063226 «MOVE ! SPX! BR! SELB! SP6> 
1354 014034 ALWAYS Il ;BACK TO IDLE LOOP 
(1) 001023 MICPC=MICPC+1 
(1) 014034 100454 (JUMP! ALCOND! <I1-INIT&3000%4> ! <I1-INIT&777/2>> 
1355 014036 TMTAL: SP BR, DECA, SP6 ;DECREMENT SYN COUNT 
(1) 001024 MICPC=MICPC+1 
(1) 014036 063166 «MOVE! SPX! BR! DECA! SP&> 
1356 o14o4e 2 TMTEXT 
(1) 001025 MICPC=MICPC+1 
(1) O14O4O 111432 7 < JUMP! ZCOND! < TMTEXT-INIT&3000%4> ! < TMTEXT-INIT&777/2> > 
1357. 014042 OUTPUT IMM, <1!0TMTCO> ;WRITE SOM TO TMTR CONTRL 
(1) 001026 ) MICPC=MICPC+1 
7 (1) 014042 002011 (MOVE! WROUT! IMM! <1 !0TMTCO>> 
1388 014044 BRWRTE IMM, 226 :SYNC CHAR 
Bass) 001027 MICPC=MICPC41 
a) 014044 000626 (MOVE! WRTEBR! IMM! <226)> 
1359 014046 OUTPUT BR <SELB! TMTDAT> ;SEND THE CHARACTER 
(1) 001030 MICPC=MI rel 
(1) 01404 062230 (MOVE! WROUT! BR! <SELB! TMTDAT> > 
10 ee 031 ! Oe recs 
(1) 014050 opaaed MT GME TAL CONDE I1-INIT&3000"4> ! <I1-INIT8777/2>> 
1361 000 .ENDC 
1362 014052 TMTEXT: BRWRTE BR, <SELA!SP10> ;UNNUMB MESSGE? 
(1) 001032 MICPC=MICPC+1 
(1) 0140S2 O60610 (MOVE! WRTEBR! BR! <SELA!SP1O>> 
1363 014054 BRO TMTUN :IF SO --BRANCH 
(1) 001033 MICPC=MICPC+1 
1) 0140S4 112043 < JUMP! BROCON! < TMTUN-INIT&3000%4 ! < TMTUN-INIT8777/2>> 
1364 014056 TSTATE MTB 


DDCMP PROTOCOL IMPLEMENTATION 
O6-DEC-76 11:34 


Cll 
CHGH . MAC C- 
(1) 001034 
(1) 014056 QO00451 
(1) 001035 
{1} Q14060 063222 
i36S 014062 
(1) 001036 
tt} 014062 0601 
1366 014064 
(1) 001037 
Ts 014064 113447 
1367 014066 
(1) 001040 
45 014066 000621 
1368 014070 
(1) 001041 
Tt 014070 062230 
1369 014072 
(1) 001042 
a 0i4072 i00454 
1370 014074 
(1) 001043 
(1) 014074 000610 
(1) 001044 
(1) 014076 063222 
1371 014100 
(1) 00104S 
T 014100 oc040S 
1372 014102 
(1) 001046 
5 014102 110441 
1373 014104 
(1) 001047 
if 014104 000620 
1374 014106 
(1) 001050 
tf 014106 110441 
1375 001 
1376 
1377 
1378 
1379 
1380 
1381 


MACY11_27(1006) pe ott 16:44 PAGE 6-65 
TMTA--F IRST CHARACTER OF HEADER 


TMTAS: 


TMTUN: 


TMTBT: 


NUMSYN: 


S$: 


MICPC=MICPC+1 
«MOVE! WRTEBR! IMM! < TMTB-INIT&77772>> 
WHOVET SPX! GRESELB! SP2> 

Nee BR, SELA'SP1 ;ARE WE IN BOOT MODE 
MICPC=MICPC+1 
<MOVE! WRTEBR! BR! <SELA!SP1)> 


+ meee + ;IF SO SEND DLE 
(J ee eS eSat cTHTBT-INITE300084> # <THTBT-INITB777/2>> 


BRWRTE IMM, 201 sELSE STORE SOH 
MICPC=MICPC41 
CMOVETARTEBR! IMM! <201>> 


OUTPUT BR, <SEL8! TMTDAT> sIN TMT SILO 
MICPC=MICPC+1 
(MOVE ! WROUT! BR! <SELB! TMTDAT> > 


ALWAYS I1 
MICPC=MICPC+1 
JUMP! ALCOND! <T1- INI T&3000#4> ! <I1-INIT&77772>> 


TSTATE TMTI 

MICPC=MICPC+1 

«MOVE! WRTEBR! IMM! <TMTI-INIT&77772>> 
MICPC=MICPC+1 

a ee 


BRUWR 
MICPC=MICPC41 
«MOVE! WRTEBR! IMM! <S>> 


in Ue 
< JUMP! AL COND! < THTAS-INIT&3000%4> ! < TMTAS-INIT8777/2>> 


BRWRTE IMM, 220 ;WRITE A DLE TO BR 
MICPC=MICPC+1 
(MOVE! WRTEBR! IMM! <220> > 


ALWAYS a ;SEND IT 


;ENQ TO BR 


, MICPC=MICPC+1 


<« JUMP! ALCOND! < TMTAS-INIT&3000#4> ! < TMTAS-INIT877772> > 
-IF DF SLOW 


RWRTE BR, <SELA!SP10> ; READ Loe STATUS WORD 
- ’ a iF F opt 38 -t SEND--FROCEED 
BRWRTE IBUS,MODEM ;ARE WE TEL SENDING? 


BRSHF T 


PAGE: 9121 


mm re ee + + ee ee ee ee = eee wes 


Cll 


DMC11 bocnP PROTOCOL INPLENENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 7 PAGE: 0122 
DDCHGH.MAC O6-DEC-76 11:34 TMTA--FIRST CHARACTER OF HEADER 

1383 BRY 11 :RTS SET? IF SO WE ARE--STALL 

1384 BRWRTE thn 373 :MASK TO TURN OFFLINE IDLE 

1385 SP R, AANDB, SP10 IN LINE STATUS WORD 

1386 STATE TMTAl 


i387 BRWRTE IMM, 10 


Dll 


OMC11 — PROTOCOL iT. MACY11_27(1006) 14-DEC-76 16:44 PAGE 8 PAGE: 0133 
ODCHGH. MA O6-DEC-76 11:34 TMTA--FIRST CHARACTER OF HEADER 

1389 SP BR, SELB, SP6 ;STORE IN SP6 

1390 TMTAL: SP BR, DECA, SPE ;DECREMENT SYN COUNT 

1391 Z TMTEXT 

1392 QUTPUT IMM,<1!OTMTCO> ;WRITE SOM TO TMTR CONTRL 

i333 nee jim gee ;SYNC CHAR 

1394 ALWAY MT 


i395 cco . ENDC 


Ell 


DMC11 DOCMP PROTOCOL IMPLEMENTATION MACYL1 27(1008) 14-DEC-76 16:44 PAGE 8-1 PAGE: 0134 
ODCHGH.MAC O6-DEC-76 11:34 TMTB--OUTPUT FIRST CHAR OF COUNT 
1392 .SBTTL TMTB--OUTPUT FIRST CHAR OF COUNT 
1399 014110 TTB: (COMA  BR,SELA!SPIE :GETPOINTER TO NEXT TMT LINK 
C1} 061051 MICPC=MICPC+1 
e2) 001 .IF IDN BR, IMM 
a (MOVE !LDMAR! IMM! <SELA!SP168377>> 
{1} O14110 o70216 <MOVE! LDMAR! BR! <SELA!SP16>> 
1) 90° .ENDC 
1490 «014112 MEMINC IMM,3 ;WRITE MSG TMTED TO FLAGS 
(1) 001052 MICPC=MICPC41 
uh) 014112 016403 (MOVE! WRMEM! INCMAR! IMM! <3>> 
1401 014114 MEMINC BR, SELA!SP12 ;PICK UP MSGNO 
(3) 01053 MICPC=MICPC+1 
(1) 014114 O76612 (MOVE !WRMEM! INCMAR! BR! <SELA!SP12>> 
13Ge 014116 gososs es nyeeeey sADDRESS TMTR STATE 
(1) OL4116 4 (MOVE !WRTEBR! IMM! < TMTC-INIT$777/2> > 
1462 14120 TBO: SP BR, SELB, SP2 UPDATE IT 
(1) 091055 MICPC=MICPC+1 
1) 014120 063222 <MOVE! SPX! BR! SELB! SP2> 
1484 014122 OUTPUT <MEMX! INCMAR> , SELB! ISAL ; WRI TELOWBY TEOF ADDRESS 
(1) 001056 MICPC=MICPC4+1 
(1) o14122 OS6224 <MOVE! WROUT ! MEMX! INCMAR! <SELB! IBAL>> 
1405 014124 OUTPUT <MEMX! INCMAR> , SELB! IBA2 ;WRITE HIGH BYTE OF ADDRESS 
1) 901057 MICPC=MICPC+1 
(1) 014124 oS6225 <MOVE! WROUT ! MEMX! INCMAR! <SELB! IBA2>> 
1406 014126 sp MEMX,SELB,SP7  ;HIGH BYTE OF COUNT TO SP7 
(1) 901060 MICPC=MICPC+1 
(1) 014126 043227 <MOVE! SPX! MEMX! SELB! SP7> 
1407 ;WAIT TO MASK OFF MEM EXT. SITS 
1408 014130 sp IBUS, NPR, SPO 
(1) 001061 MICPC=MICPC+1 
(1) 014130 123209 «MOVE! SPX! IBUS! NPR! SPO> 
1499 014132 BRWRTE IMM, 220 
(1) idee MICPC=MICPC+1 
1) 014132 900620 (MOVE! WRTEBR! IMM! <220> > 
1410 914134 SP BR, AANDB, SPO 
(13 001063 MICPC=MICPC+1 
h) 014134 063260 <MOVE! SPX! BR! AANDB! SPO> 
\ 
1411 014126 SP IMM, 300, SP6 :MASK FOR MXT 
(1) 091064 MICPC=MICPC41 
iL) 014136 00330¢ <MOVE !SPX! IMM! 300! SP&> 
1412 OL4140 BRWRTE NENX' INCHAR, AANDB! SPE ;TURN OFF Co2 


OS10€5 MICPC=MICPC+ 


F1ll 


11 DD¢ NTATION MACY11 27(1 4-DEC-76 16:44 PAGE 8-2 PAGE: 
BOE oS OR ore oe tis aa MOR OGTPUTCEIRST CHAR OF COUNT 
(1) O14140 OS4666 <MOVE ! WRTEBR! MEMX! INCMAR! <AANDB! SP6> > 
1413 014142 OUTPUT MEMX, SELB! TMTDAT sALSO WRITE COUNT TO TMTR SILO 
it) Be3088 MPEG heme: <SELa! THTOAT> 
if) c14i42 UT! MEMX! <SELB 
4 ; NTO CORRECT POSITION 
1414 OL4144 BRSHF SHIFT BITS INTO CO 
¢ ? NICP mi ICP 
iD O14144 ast HET Set wRTEBR! SELB> 
\ 
BRSHFT 
mb abel 901070 MICPC=MICPC+1 : 
ib) 014146 901620 (MOVE ! SHF TBR! WRTEBR! SELB> 
1416 914150 BRSHET 
? MICPC=MICPC+1 
i) 014150 ste TROVE? SHE TER! WRTEBR! SELB> 
J 
1417 014152 BRSHFT 
MICPC=MICPC+1 
id) 014152 Bot eos <MOVE ! SHF TBR! WRTEBR! SELB> 
418 0: OUT _BR, AORB!ONPR 
8 votes 001073 MICPC=MICPC+1 
dD O141S4 061310 <MOVE ! WROUTX! BR! <AORB! ONPR> > 
BR _MEMX. SELB, SP6 sLOWBYTE OF COUNT TO SPé 
ty — 901074 RICPC=MICECS eerie 
(1) O141S6 043626 <MOVE ! SPBRX! MEMX! SELB! SP6> 
Ct 
IF DF S$LOW ;#¥8#410/21/76 
at = e IDLE 
1453 000 NDC ae 
1423 001 i 5 3 #4*2810/21/76 
1484 C14160 ea 
5 O14180 rete nice ae oe INITS3000#4> !<I1-INIT8777/2>> 
1 be 909 LENDS 
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14162 
314162 
0.4164 
014164 
014166 
014166 
014170 
014170 
014172 
014172 
Oi4174 
oidi74 
O14176 
014176 
614200 
014200 
014202 


014202 
014202 


014204 
014206 


024206 


O14210 
014210 
Citele 


OmCil DOCMP PROTOCOL I! 
ODCHGH. MAC O6-DEC-76 11:34 


BouN?? 


901077 
063667 


po1308 
ee3C 


001191 
000S43 


Beta7e 


001193 
111511 


001104 
o0C40& 


902105 
363915 


00: 
909 
001 
001106 


063222 


TaGes 


ooo 
58474 


051212 


MACY11 27(1006) 14-DEC-76 16:44 PAGE 8-3 PAGE: 


Gll 


TMTC--OUTPUT SECOND CHAR OF COUNT 


TMTC: 


S$: 


10$: 


.SBTTL TMTC--OUTPUT SECOND CHAR CF COUNT 


BRURTE iin IM, 77 :MASK TO CLEAR MXT BITS 
‘a 
AY smacecs | IMM! <77>> 


SPBR ae , SP7 ;CLEAR THEM 
M =M 
mat Ss RX! BR! AANDB! SP7> 


OU js —<— ;WRITE TO TMT SILO 
M 
CHOVE? WROUT!OP! (SELB! TNTDAT? 


BRWRTE IMM, TMLE ;GET WRAPAROUND ADDRESS 
MICPC=MICPC41 
COVE! WATEBRE IMM! <TML@> > 


CMP ‘ BR, SP16 
ICE CanTCPeSt 


Z 10$ 
MICPC=MICPC+1 
"JUMP? 2COND# < L0S-INIT&3000%4> ! ¢10$-INIT877772>> 


BRWRTE IMM,6 OFFSET TO NEXT LINK 
MICPC=MICPC41 
«MOVE! WRTEBR! IMM! <&>> 

BR, ADD, SP16 sUPDATE THE POINTER 


SP 
MICPC=MICPC+1 
(MOVE! SPX!BR'ADD! SP1&> 


; WRAPRORUND 


.IF DF SLOW 
STATE TMTD 
ALWAYS XEXIT 


CPC+1 
«MOV! WRT RE Ine cTHTD- “INIT$77772>> 


MIC 
(HOVE! SPX! BR! SELB! SP2> 
ALWAYS I1 ;##220CTOBER 29, 1976 


MEGMBTALCONDE « T1-INZTS300084> # < 11-INIT8777/2>> 


atest :G0 BACK TO FISST LINK 
WRTEBR! IMM!<TML1>> 


SP BR, SELB, SP16 
MICPC=MICPC+1 


BRURTE 
MICPC=M 
(MOVE td 


0136 


ool oN PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 8-4 


BcchSh MAC }© OB-DEC-76 11:34 TMTC--OUTPUT SECOND CHAR OF COUNT 
(1) 244212 063236 (MOVE! SPX! BR! SELB! SP16> 
1499 On4214 ALWAYS 
1} 991113 MICPC=MICPC+1 
¢) cuei# 1TOESE THOME tc COND! <SS-INITSZOCO*4> ! <S$-INITS777/2>: 
¢ 


I1l 


DDCMP PROTO LEMENTATION MACYL1 27(1006) 14-DEC-76 16:44 PAGE 8-5 PAGE: 
aitet tte oe Mb oc TOFD RESDONSE. FIELDUNUMBERED MESSAGE : 
1452 .SBTTL TMTD--RESPONSE FIELD-NUMBERED MESSAGE 
1453 O14216 TTD: STATE TMT 
D3 014216 ae CMOVE IWRTEDR! IMM! <THTE INIT8777/2>> 
1464 014220 Sf BR. DECA, SP6 : sADJUSRT COUNT FOR TWO’S COMPLEMENT 
(1) 901115 MICPC=MICPC+1 
2 014220 963166 <MOVE! SPX! BR! DECA! SP&> 
1465 914222 TD2 ;NO OVERFLOW 
1) OO1116 NICPC=MIC CPC+1 
2 014222 111120 STUMP! CCOND! <TD2-INITS3000%4) ! <TO2-INIT8777/2)> 
1456 014224 BR ADE DECA, SP7 sDECREMENT HIGH BYTE OF COUNT 
it} Beate> Rigpcete 
st 014224 167 x! RtDECA!SP7> 
1457 014226 TD2: IMM, ISP11 :RESP FIELD ADDR T9 MAR 
(L} 00140 nt oP ids 
iD) 014226 010171 Rove LOnAR! HM: 1SP118377> 
\ 
ih) <MOVE!LDMAR! IMM! <ISP11>> 
(h) coc . ENOC 
1488 614230 7D3: OUTPUT MEMX,SELB! TMTDAT WRITE IT TO SILO 
1) 001121 MICPC=MICPC+ 
ib) 014230 042230 <MOVE! WROUT ! MEMX! <SELB! TMTDAT> > 
A 
1459 914232 XEXIT2: SP BR, SELB, SP2 
(1) 901122 MICPC=MICPC+1 
oe G14232 963222 «MOVE! SPX! BR! SELB! SP2> 
1460 014234 ALWAYS I1 
1) 001123 MICPC=MICPC+1 
(1) o1We34 100454 <JUMP!ALCOND! <I1-INITS30COQ#4> !<I1-INIT877 


OMCi1 COCMP PROTOCOL IMPL 


CDCHGH. MAC 


- 
o~ 
tt 

wee WI 


- 
© me rN me Bon en Dee 


cone 
0 -+b-2b = Ce--0— 
Not eet er Oe we 


+ b+ b= = p= 
ei ee 


- 


~ 


014236 
014236 


014236 
014240 
014240 
014242 
014242 
014244 
014244 
014246 


OL4e46 
014250 


934250 


O6-DEC-76 


Peddha 


901125 
102054 


001126 
060812 


001127 
062230 


poe3e 


091131 


119698 


ceorww 


—— MACY11 27(1006) I14-DEC-76 16:44 PAGE 8-6 PAGE: 


TMTE--NUMBER FIELD--NUMBERED MESSAGE 


TMTE: 


.SBTTL TMTE--NUMBER FIELD--NUMBERED MESSAGE 
SPBR : BUS NPR, SPO ;READ NPR CONTROL REGISTER 
( Ce TCBRRS BUS! NPR! SPO> 

BRO Il ;BUSY - GET OUT 
MICPC=MICPC+1 

< JUMP! BROCON! <I1-INIT&3000#4> !<I1-INIT877772>> 

BRWRTE BR,SELA!SP12 


MICPC=MICPC+1 
«MOVE! WRTEBR! BR! <SELA!SPle>> 


OUTPUT BR «SELB! TMTDAT> 
MICPC=MICPC+1 
«MOVE! WROUT! BR! <SELB! TMTDAT> > 
STATE ; TNTF 

= + 
NO eee cet mms cTMTF<INIT&777/2)> 
ALWAYS TH3 


MICPC=MICPC+1 
< JUMP! ALCOND! < TH3-INIT&3C000#4> ! « TH3-INIT8777/2>> 


;WRITE IT TO THE SILC 


5139 


DMC11 ODOMP PROTOCOL vs 


OCCHGH. MAC 


— 5 o- 

BO a tenant ae lea 
Pa gee 

Nw ww we 


— 
CONJ>= 0 = per 


014252 


814588 
014254 


014256 
314256 


014260 
014260 
014262 
014262 


06-DEC-76 


MACY11 27(1006) 14-DEC-76 16:44 PAGE 8-7 PAGE: 


Pa 


TMTF--NUMBERED MSG ADDRESS FIELD 


TMTF: 


TF2: 


TF3: 


.SBTTL TMTF--NUMBERED MSG ADDRESS FIELD 


Stare TFl 
MICPC= MIGPC#1 
Sided ek INIT877772>> 


Aicecenrteet +1 
«MOVE! SPX! BR! SELB! SP2> 


BRWRTE IMM.1 ;LOAD ADDRESS 
MICPC=MICPC$1 
«MOVE! WRTEBR! IMM! <1>> 


.IF NOF SLOW 
OUTPUT. BR, «SELB! TMTDAT> 
HOVE? tases BR! «SELB! THTDAT> 


ALWAYS I1 
MICPC=MICPC+1 
«JUMP! ALCOND! <T1-INIT&3000#4> !<T1-INIT8777/2>> 


-ENDC 

.IF DF $LOW 
ALWAYS TMTAS 
. ENDC 


0140 


OMC11 DDCMP PROTOCOL IMPLEMENTATION 
ODCHGH. MAC O6-DEC-76 11:34 


-- 
~ 


~ ~ - 
Ce — — (De — &- (Oe oe 
Nt ee we  —EeDwe OM we we NS we we 


o-- 


— 


ee 
PO NON EO ON BOON OO BOR RR BO Rn Bm on Bren 


b= +b De 


014264 
014264 
014266 
014266 
014270 
014270 
014272 
014272 
014274 
014274 
014276 


014276 
014300 


014390 


001142 
020500 


001143 
112162 


001144 
oocS46 


001145 
110563 


macy it 27(1006) 14-DEC-76 16:44 PAGE 8-8 ) PAGE: 
F1-NUMBERED MSG HEADER EOM 


TFl: 


Lil 


.SBTTL TF1-NUMBERED MSG HEADER EOM 


rieece sEOM MASK TO BR 
rH <a 

OUTPUT BR, <SELB!OTMTCO> ;UPDATE TMTR CONTROL REGISTER 

MICPC=MICPC+ 


«MOVE! WROUT! BR! «SELB! OTMTCO> > 


OUTPUT BR, <SELB! TMTDAT> 
MICPC=MICPC+ 
<MOVE ! WROUT! BR! <SELB! TMTDAT> > 


BRWRTE IBUS, IIBAL 
MICPC=MICPC+] 
«MOVE! WRTEBR! IBUS! <IIBAL>> 


;OUTPUT A GARBAGE CHAR 


;READ LOW ORDER FROM INBA 


Pies neceeel ;IF ODD BYTE--BRANCH 
< JUMP! BROCON! < TMTF 1-INIT&3C00%4> ! < TMTF1-INIT&77772>> 
STATE __TMTH 


MICPC=MICPC+1 

«MOVE !WRTEBR! IMM! < TMTH-INIT877772>> 

ALWAYS XEX 4 

MICPC=MICPC+1 

«JUMP! ALCOND! « XEXIT-INIT&3000#4> ! <XEXIT-INIT877772>> 


O141 


M11 


DMC11 DDCMP PROTOCOL IMPLEMENTATION macy 27(1006) 14-DEC-76 16:44 PAGE 8-9 PAGE: O142 
ODCHGH.MAC  O6-DEC-76 11:34 FI-NUMBERED MSG HEADER EOM 
1493 ; RRRRRRERRERETIME CRITICAL PATH--MODIFY WITH GREAT CARE 
1434 .SBTTL TMTH--ROUTINE TO OUTPUT DATA CHARACTERS 
14% 014302 TMTH:  SPBR 1BUS NPR, SPO READ NPR CONTROL 
1) 001146 Rrcrc=niC 
Ch) 014302 123600 MOVE ! SPBRX! IBUS! NPR! SPO> 
1497 001 olf NDF SLOW 
1498 014304 BR os ;IF RECV NPR --PROCESS 
(1) 001147 ae mers +1 
1) 014304 113151 'BRYCON! <S$-INIT&3000%"4> ! <S$-INIT8777/2>> 
1499 000 ‘ 
1509 014306 : era it ;IF NPR IN PROGRESS --BRANCH 
(1) 014306 Pp ateq mies nice ont <I1-INIT&3000%4> # <I1-INIT8777/2>> 
1501 014310 S$: OUTPUT IBUS, <INDAT1! TMTDAT> ;WRITE THE EVEN CHAR TO TMT SILO 
(1) 001151 MICPC=MICPC+1 
(1) 014310 O22010 (MOVE ! WROUT ! IBUS! < INDAT1! TMTDAT> > 
1S02 014312 sp 1BUS IIBA1,SPO ;READ LOW BYTE OF BA TO SP 
(1) 001152 NICPC MICPC+ 
(1) 014312 023100 MOVE! SPX! IBUS! IIBAL! SPO> 
1803 014314 OUTPUT BR. <INCA!IBAL> ;OQUTPUT INCREMENTED BA 
(1) 001153 MICPC=MICPC+1 
(1) 014314 O62064 <MOVE ! WROUT! BR! < INCA! IBAL>> 
1504 014316 sp BR, DECA, SP& sDECREMENT CHARACTER COUNT 
(1) 001154 MICPC=MICPC+1 
(1) 014316 063166 «MOVE! SPX! BR! DECA! SP&> 
150 014320 “a Aboigh :NO OVERFLOW 
Ch) 014320 Titties hyoeee re Wed tema '<THE-INIT8777/2> > 
1506 014322 SP BR ADF DECA, SP7 ;DECREMENT HIGH BYTE OF COUNT 
(1) 001156 MICPC= MICP 
(1) 014322 063167 TA SOETePX! BRE DECA! SP7> 
1507 014324 2 HEH1 ;BYTE COUNT ZERO 
(1) 001157 MICPC=MICPC+1 
(1) 014324 115407 TUNE? ZCOND! <CHEHI- -INIT&3000%4> ! <HEH1-INIT8777/2>> 
1508 014326 THE: 
1509 001 IF 
1810 014326 erie, Bus, TMTCON ;READ TMTR CONTROL CSR 
tit = 
Ch) 014326 a SSE TWATES 2 anaes 
1511 014330 BRY THS ;IF MORE ROOM IN SILO--BRANCH 
(1) 001161 MICPC=MICPC+1 
h) 014330 113165  SGME? BRICONE < THO-INIT&3000%4> # <TH9-INIT8777/2> 
ew) . 
iSlez 090 .ENOC 


N11 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006)  14-DEC-76 16:44 PAGE 8-10 PAGE: 0142 
DDCHGH.MAC  O6-DEC-76 11:34 TMTH--ROUTINE TO OUTPUT DATA CHARACTER 
1513 014332 TMTF1: STATE _TMTHO 
at} 001162 MICPC=MICPC+1 
ASH 014332 O00sés «MOVE LMRTEBR! IMM! <THTHO-INIT8777/2) 
Bs WAYS Seet 
151 000 : 
1517 001 .IF NOF $LOW 
1518 014334 XEXIT: SP BR SELB, SP2 ;STORE NEW TRANSMIT STATE 
(1) 001163 MICPC=MICPC+1 
(1) 014334 0632222 ; «MOVE! SPX! BR! SELB! SP2> 
1519 014336 ALWAYS I1 
(1) 001164 MICPC=MICPC+1 
(1) 014336 100454 < JUMP! ALCOND! <I1-INIT83000%4> ! <I1-INIT877772>> 
1520 000 .ENDC 
1521 014340 me TMTHO: - 1. om 
1523 ébbe fbUS, NPR, SPO ;NPR BUSY 
1524 BRO Il 
1525 000 .ENDC 
1526 014340 THS: OUTPUT IBUS, <INDAT2! TMTDAT> ;0DD CHAR TO SILO 
(1) 001165 MICPC=MICPC+1 
(1) 014340 022030 <MOVE ! WROUT ! IBUS! < INDAT2! TMTDAT> > 
1527 014342 sp IBUS, IIBA1,SPO :READ LOK BYTE TO BA 
(1) 001166 MICPC=MICPC+] 
(1) 014342 923100 <MOVE ! SPX! IBUS! IIBAL!SPO> 
1528 014344 OUTPUT BR, <INCA!IBAL> ;OQUTPUT THE INCREMENTED BA 
(1) 001167 MICPC=MICPC+1 
(1) 014344 O62064 (MOVE ! WROUT! BR! < INCA! IBAL>> 
1529 014346 c HOINCH 
(1) 001170 MICPC=MICPC+1 . 
(1) 014346 111377 < JUMP! CCOND! <HOINCH-INIT8&3000%#4> ! <HOINCH-INIT8777/2>> 
1530 014350 TH8: SP BR DECA, SP6 sDECREMENT CHARACTERCOUNT 
(1) 001171 MICPC=MICPC+ 
(1) 0143S0 063166 <MOVE ! SPX! BR! DECA! SP6> 
1531 014352 c TH? ;NO OVERFLOW 
(1) 001172 MICPC=MICPC+1 
(1) 014352 111175 < JUMP! CCOND! <TH7-INIT&3000#4> ! <TH7-INIT8777/2> > 
1522 014354 SP BR, DECA, SP7 ;DECREMENT HIGH BYTE OF COUNT 
(1) 001173 MICPC=MICPC+1 
(1) 014354 063167 <MOVE ! SPX! BR! DECA!SP7> 
1533 014356 2 HEH1 sBYTE COUNT ZERO 
(1) 001174 MICPC=MICPC+1 
(1) 014356 115407 < JUMP! ZCOND! <HEH1-INIT&3000%4> ! <HEH1-INIT877772>> 
1534 014360 TH?:  SPBR _IBUS,NPR,SPO ;READ NPR REGISTER 
(1) 001175 MICPC=MICPC+1 
(1) 014360 123600 <MOVE ! SPBRX! IBUS! NPR! SPO> 


ne ee re ee eee ee nee - se ee eee +e 


ge re gene ee eee ooene 


Ble 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 8-11 
DCDCHGH. MAC 6 11:34 TMTH=-ROUTINE T 


06-DEC-7 0 OUTPUT DATA CHARACTERS 
(1) 
1535 001 .IF NOF SLOW 
1536 014362 BRO THe ;IF NPR BUSY WAIT TO GO 
(1) 001176 MICPC=MICPC+1 
1) 014362 112205 < JUMP! BROCON! < TH2-INIT&83000%4> ! < TH2-INIT&777/2>> 
1537 ooo .ENDC 
1538 014364 STATE TMTH 
(1) 001177 MICPC=MICPC+1 
(1) 014364 o00546 (MOVE! WRTEBR! IMM! <TMTH-INIT8777/2) > 
1539 014366 TH3: SP BR, SELB, SP2 ;SAVE TSTATE 
(1) 001200 MICPC=MICPC+1 
( 1) 014366 063222 «MOVE! SPX! BR! SELB! SP2> 
1540 014370 TH3X:  BRWRTE IMM, 1S6 ;CLEAR CO AND Cl 
(1) 001201 MICPC=MICPC41 
(1) 014370 Oo00SS6 (MOVE! WRTEBR! IMM! <156>> 
1541 014372 sp BR, AANDB, SPO ;CLEAR THE BITS 
(1) 001202 MICPC=MICPC+1 
(1) 014372 063260 «MOVE! SPX! BR! AANDB! SPO> 
4 
1542 014374 OUT BR, < INCA! ONPR> 
(1) 001203 MICPC=MICPC+1 
1) 014374 061070 <MOVE ! WROUTX! BR! < INCA! ONPR> > 
1543 014376 ALWAYS Tl 
(1) 001204 MICPC=MICPC+1 
1) 014376 100454 < JUMP! ALCOND! <I1-INIT&3000#4> !<I1-INIT8777/2>> 
1544 001 .IF NOF SLOW 
1545 oO14400 THe:  TSTATE TH? 
(1) 001205 MICPC=MICPC+1 
(1) o14400 000575 <MOVE ! WRTEBR! IMM! <TH7-INIT&8777/2>> 
(1) 001206 MICPC=MICPC+1 
(1) O14402 063222 <MOVE ! SPX! BR! SELB! SP2> 
1546 014404 ALWAYS Ti 
(1) 001207 ' MICPC=MICPC+1 
C1) 014404 100454 < JUMP! ALCOND! <I1-INIT&3000#4> ! <I1-INIT8777/2>> 
1547 ooo .ENDC 
tee  RHXRRERRKERKEXEND TIME CRITICAL PQTHRRRHERAARAAARRELE REAR ALAA ESRE 
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DMC11 DDCMP PROTOCOL IMPL 
DDCHGH. MAC 06 76 


014406 


014406 


014410 
014410 
014412 


014412 
014414 


014414 


Oi4416 


O14416 


014420 


014420 
014422 


014422 


Cle 


MACY11 27(1006) 14-DEC-76 16:44 PAGE 8-12 PAGE: 
TMTI--SEND UNNUMBERED TYPE FIELD 


.SBTTL TMTI--SEND UNNUMBERED TYPE FIELD 

OMA ~—sIMM, T ;ADDRESS OF TYPE FIELD TO MAR 
pice cic 

thovEr DnaR! TMM! <T8377>> 


<MOVE!LDMAR! IMM!<T>> 
.ENDC 


fa 


SP MEMX, SELB, SP& :COPY IT TO SP6 
MICPC=MICcPC+l 
<MOVE ! SPX! MEMX! SELB! SP&> 


STAT IMTJ 
MICPC=MICPC+ 
«MOVE! WRTEBR 
ALWAYS TD3 
MICPC=MICPC+1 

« JUMP! ALCOND! < TO3-INIT&3000#4> !< TO3-INIT&777/2>> 


1 
LIMM! <TMTJ-INIT877772> > 


*SBTTL TMTJ--SEND SUB-TYPE FIELD 
LOMA —_—IMM,ST 
NECPC=MICectl 

<MOVE! LDMAR! IMM! <ST8377>> 


. IFF 
«MOVE! LOMAR! IMM! <ST>> 
-ENDC 


;ADDRESS OF SUS-TYPE FIELD TO MAR 


STATE _TMTK 
MICPC=MICPC+1 
SANE LTE Ss SIUUE PHOT ENE TB 77 78>? 


AL 
MICPC=MICPC+1 
< JUMP! ALCOND! < TD3-INITS3000#4> !< TO3-INIT&777/2>> 


Dle 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1008) 14-DEC-76 16:44 PAGE 8-13 PAGE: O14¢ 
ODCHGH.MAC  O6-DEC-76 11:34 TMTK--OUTPUT RESPONSE FIELD (UNNUMB MSG) 
1562 .SBTTL TMTK--OUTPUT RESPONSE FIELD (UNNUMB MSG) 
1564 oO14424 TMTK: BRWRTE IMM,3 :WRITE A 3 TO BR 
(1) 001217 MICPC=MICPCH1 
ct) 014424 900403 (MOVE! WRTEBR! IMM! <3>> 
1565 014426 NOP BR, SUB, SP6 IF TYPE LESS THAN 3 
1) 901220 MICPC=MICPC+1 
ch) 014426 060346 <BR! SUB! SP6> 
156 014430 TSTATE TMTL 
(1) 001221 MICPC=MICPC+1 
(1) O14430 090625 (MOVE! WRTEBR! IMM! <TMTL-INIT&8777/2>> 
(1) 001222 MICPC=MICPC+1 
(1) O14432 063222 «MOVE! SPX! BR! SELB! SP2> 
1567 014434 C TMTLO 
(1) 001223 MICPC=MICPC+1 
014434 111232 < JUMP! CCOND! < TMTLO-INITS3000%4> ! < TMTLO-INIT877772> > 
1 UNE ay ese 
1) 014436 ret < JUMP! ALCOND! < TD2-INIT&3000#4> ! <TD2-INIT8&777/2>> 
1569 ; 
1570 *SBTTL TMTL--UNNUMB MSG NUMSER FIELD 
1571 O14440 TTL:  TSTATE TMT 
C1) 001225 MICPC=MICPC+1 
(1) 014440 000637 (MOVE! WRTEBR! IMM! <TMTM-INIT&777/2> > 
(1) 001226 MICPC=MICPC+i 
(1) O14442 O63222 <MOVE ! SPX! BR! SELB! SP2> 
1872 O14444 BRWR 
(1) 001227 MICPC=MICPCH1 
te 014444 900403 (MOVE! WRTEBR! IMM! <3>> 
1573 014446 CMP «BR. SP6 51S MESSAGE REP 
(1) 001230 MICPC=MICPC+1 
(1) O14446 060366 <SUBTC!BR!SPE> 
1574 G144sO 2 TMTL1 sYES 
(1) 001231 MICPC=MICPC41 
D) O144SO 111635 < JUMP! 2COND! < TMTLI1-INIT&8Z000#4> ! < TMTL1-INIT8777/2 > 
1S75 o144s2 TMTLO: ®BRWRTE IMM,O sADDRESS CONTNAT OF ZERO 
(1) 001232 MICPC=MICPC41 
(1) o144Se 900400 (MOVE! WRTEBR! IMM! <Q> > 
1576 001 .IF DF SLOW 
1577 ALWAYS TMTAS 
1578 00 .ENOC 
1579 001 "IF NOF SLOW 
1580 o144s4 OUTPUT BR. <SELB! TMTDAT> :SEND IT OUT 
(1) 901233 MICPC=MICPC+1 
iL) O144S4 062230 <MOVE !WROU™! BR! <SELB! TMTDAT> > 
1581 CL44sE ALWAYS Il BACK TC IDLE LOOP 
Chi 001234 MICPC=MICPC+1 


Ele 


DMC11 DDCMP PROTOCOL NPL LEMENTATION ACY LL 27(1006) 14-DEC-76 16:44 PAGE 8-14 PAGE: 
ODSHGH.MAC  O6-DEC-76 11:34 TMTL=-UNNUMB MSG NUMBER FIELD 
(1) O144s6 = 100454 «JUMP! ALCOND! < I1-INIT&3000#4> ! <I1-INIT&777/2>> 
1586 coo . ENDC 
i584 oO14460 ™ tMTL1: BRWRTE BR,DECA!SP12 ;WRITE A RESPONSE 
(1) 091235 MICPC=MICPC+1 
ae o14460 960572 (MOVE! WRTEBR! BR! <DECA!SP12>> 
1585 o14462 ALWAYS TMTAS 
(1) 001236 MICPC=MICPC+1 
i} o1y4e2 110441 «JUMP! ALCOND! « TMTAS-INIT&3000%4) ! TMTAS-INIT8777/2) > 
Lae 
1586 : , 


O14? 


Fle 


ss) PC+1 
Ci4516 11065) «JUMP! ALCOND! «S$-INITS3CCC#4> !<S$-INITS777 2: » 


DMC1L1 DDCMP PROTOCOL IMPLEMENTATION NaCY 11 27(1006) 14-DEC-76 16:44 PAGE 8-15 PAGE: O14e 
DOCHGH.MAC O6-DEC-78 11:34 M--UNNUMB MSG--STATION ADDRESS 
i58@ .SBTTL TMTM--UNNUMS MSG--STATION ADDRESS 
1589 14464 T™TM: STATE  TNEOM 
C1) 001237 MICPC={MICPC+1 
(1) 914464 000641 <MOVE ! URTESR! InM! cTNEON-INIT8777 29> 
is99 O14466 ALWAYS 
Ci} 001240 MICPC= MICPE+1 
aD) 014466 110533 < JUMP! ALCOND! < TF2-INITS3000%4> ! < TF2-INIT$77772> > 
1531 014470 TNEOM: BRWRTE IMM,2 ;END OF MESSAGE TO BR 
(1) 001241 MICPC=MICPC41 
4) 014470 9800402 (MOVE! WRTEBR! IMM! <2>> 
15392 014472 OUTPUT BR. <SELB!OTMTCO> 
(1) 001242 MICPC=MICPC+1 
1) 014472 062231 <MOVE !WROUT! BR! <SELB!OTMTCO>> 
1843 o14474 OUTPUT BR, <SEL93! TMTDAT> :OUTPUT A GARBAGE CHARACTER 
(1) 001243 MICPC=MICPC+1 
a 014474 062230 «MOVE ! WROUT! BR! <SELB! TMTDAT> > 
is94  O14476 BRWRTE IMM,4 sSET UP LINE HAS GONE IDLE MASK 
f) 001244 MICPC=MICPC41 
1) 04476 OdOc4o4 «MOVE! WRTEBR! IMM! <4 > 
1595 914500 SPBR _BR, AORB, SP10 UPDATE LINE STATUS WORD 
C1) 001245 MICPC=MICPC+ 
1) 014500 063710 «MOVE! SPBRX! BR! AORB! SP10> 
1596 9145902 BRWRTE BR.AA!SP1O ;SHIFT STATUS LEFT 
(i) 001246 MICPC=MICPC+1 
ch) o14so2 960530 (MOVE! WRTEBR! BR! <AA!SP1O>> 
J 
1597 o14S04 BR? 10$ :IF HDX SET---BRANCH TO CLEAR CK TS SEND 
(1) 001247 MICPC=MICPC+1 
D) O14S04 113653 < JUMP! BR7CON! < 10$-INIT83000%4> !< 10$-INIT8?777/2>> 
1598 O14SO6 BRWRTE IMM. 376 ;MASK TC TURN OFF UNNUMB PENDDING 
C1) 991250 MICPC=MICPC 
(1) 014506 000776 (MOVE! WRTEBR! IMM! <376>> 
1599 o14s:0 S$: SP BR, AANDB, SP10 :MASK TO LINE STATUS WORD 
(1) 901251 MICPC=MICPh+1 
1) O14S10 0633 (MOVE! SPX! BR! AANDB! SP10> 
1600 014512 ALWAYS TEOMe 
1} o012s2 MICPC=MICPC+1 
(1) 14512 110740 < JUMP! ALCOND! « TEOM2-INIT83000%4> ! « TEOM2-INIT8777/2> > 
(i 
1601 O14514 10$:  BRWRTE IMM,176 ;CLEAR 9K TO SEND AND UNNUMB PENPENDING 
(1) 001253 MICPC=MICPC41 
1) O14514 00057 CHOVE TURTEGR! IMM! <1769> 
{]) 
1602 014516 ways 5 
C1 01254 MECPCoMTe 


+ -+0--b—- 


we. wee 


Rc COCMP PROTOCOL ee tl MACY11 27(1006) 14-DEC-76 16:44 PAGE 8-16 PAGE: 3149 


GH.MAC © OG-DEC-76 11:34 TIMSRV--TIMEOUT ROUTINE--SENDS REP 
160 .SBTTL TIMSRV--TINEOUT ROUTINE--SENOS REP 
1606 ‘ENABLE LSB 
1807 o14520 TIMSRV: BRWRTE IMM, 177 :MASK OFF 8R REG 
Ct) 901255 MICPC=MICPC4! 
dh 014520 900577 <MOVE! WATEBR! IMM! (17799 
ee SE TSE arn 
1610 sth END THE EXP TRET ION ehae 
1611 i TKE fe VOLLA 
1612 014522 OUT BR, <AANDB! OBR> :AND THE'BIT ON 
(1) 091256 MICPC=MICPC+1 
1) 014522 061271 (MOVE! WROUTX! BR! <AANDE! OBR? > 
1613 014524 BRWRTE BR, SELA!SP1 “READ STATUS BYTE 
(1) 001257 MICPC=MICPC+1 
1) 014524 080601 (MOVE! WRTEBR! BR! <SELA!SP1>> 
\ 
1614 O14526 BRO IDLE 
(1) 001260 MICPC=MICPC+1 
cL) 014526 10205! (JUMP! BROCON! < IDLE-INIT83000#4> ! < IDLE-INIT8777/2) > 
1815 014530 3R? IDLE sIF IN MAINT. MODE DISABLE TIMER 
(1) 001261 MICPC=MICPC41 
et 014530 10345] UTGMBTBRYCON! «IDLE ~INIT&3000%4> ! < IDLE-INIT8777/2) > 
1616 014532 SP BR, DECA, SP1S ;DECREMENT THE COUNTER 
(1) 001262 MICPC=MICPt+1 
) 014532 063175 (MOVE! SPX! BR! DECA! SP15> 
1617 914534 2 20% IF ALL ONES HAS EXPIRED 
(13 901262 MICPC=MICPC+1 
cb) 014534 111670 CTUMP!ZCOND! {20S-INITS3000%4> ! (20$-INIT8777/2) > 
1618 014536 10$:  BRWRTE BR, SELA!SP1O READ LINE STATUS 
(1) OO1264 MICPC=MICPC+1 
oe 014536 O&8CEIO <MOVE! WRTEBR! BR! <SELA!SP10>> 
1619 O14s40 BR! TABUPD sNUMBERED MESSAGE IN PROGRESS 
(1) 001265 MICPC=MICPC41 
() O14S4O 11673] MMB TBAICON! (TABUPD-INITS$3000%4> ! <TABUPD-INIT$777/2>> 
1680 o14s4e = air BRO. ; UNNUMBMSGIN PROGRES* 
1) owsue Ties rior Se -INIT8777/2>> 
2 
1621 O14S44 ALWAYS IDLE ELSE BACK TO IDLE LOOP 
(13 001267 MICPC=MICPC#1 
oe 914544 100451 < JUMP! ALCOND! < IDLE-INITS3CO0#4> ! < IDLE-INIT8777/2>> 
1622 C1HSHE TIMEL: 
iges O14S46 20$:  BRWRTE IMM,2 : 
(33 901270 MICPC=MICPC41 
1) CiMs4e 000402 CHOVETWRTEBRE IMM! <2>> 


OMC11 DOSMP PROTOCOL i. 


DDZHGH.MAC © O&-DEC-76 11 
i624 o14550 
(2) 001271 
(1) Q1YS50 063235 
1635 001 
1g o14ss2 
{]) 901272 
1) o14ss2 909€C! 
Aaa 
1627 14554 
ae 901273 
(1) O14554 063710 
(1> 
1628 oco 
1629 aap 
2530 
1531 000 
1632 C14SS6 
1) 001274 
(1) C14SS& 001620 
1652 o14se0 
(1D 001275 
4) 914560 10311! 
1634 o14s62 
1) 012 
1) 014562 O60572 
1635 014564 
1) 961277 
iL) OLYSE4 377 
1836 O14S&6 
C1) 901300 
a) O14S6E 111732 
613 
1637 14570 
(1) 001301 
(1) o0 
ob) O14570 01015) 
(1) 
(1) 00 
(1) 
1638 014572 
(1) 901302 
(2s O14572 016403 
1639 914574 
1) 001302 
(1) 014574 016700 
ae 
1650 014576 
3 901304 


081 


MACY11 27(1006) 


Hle2 


TIMSRV--TIMEOUT ROUTINE--SENDS 


TIMEe: 


SP BR, SELB, SP1S 
MICPC=MICPC+1 
(MOVE! SPX!BR!SELB!SP15> 


.IF NOF SLOW 
BRWRTE i 201 

pct] 
(MOVE! WRTEBR! IMM! <201>> 
SPBR _BR, AOR, SP1C 


MICPC=MICPC+1 
<MOVE ! SPBRX! BR! AORB! SP10> 


- ENDC 

.IF DF SLOW 
BRWRTE OP, <SELA!SP10O> 
. ENDC 

RSHFT 


B 
MICPC=MICPC+1 
(HOVE? SHE TBR! MRTEBR! SELB> 


BRY BS1 
MICPC=MICPC+1 


14-DEC-76 16:44 PAGE 8-17 
REP 


;RESET THE TIMER TICK COUNT 


;SET OK TO SEND AND 


;UNNUM MSG PENDING 


;READ LINE STATUS WORD 


;IF IN START MODE--BRANC 


< JUMP! BRYCON! <BS1-INIT&3CO0#4> !<BS1-INIT877772>> 


Set nent DECA!SPle 
(HOVE! URTEBR!BR! <DECA!SPi2> > 


CMP SP17 
Ge pcan Tepes 
<SUBTC!BR!SP17> 


Z SNDACK 
ape 


;GET LAST NUMBER SENT 


;COMPARE TO LAST ACKEC 


:IF EQ --SEND ACK 


CPC+1 
JUMP! ZCOND! <SNDACK-INITS3000#4> # < SNDACK- INIT877772>> 


LOMA 
Lore CaM TEPC dy 

‘ N IMM, IMM 
<HOVE!LOMAR! IMM! <78377>> 
<MOVE!LOMAR! IMM! <T>> 

.ENDC 

MEMINC IMM, 3 
MICPC=MICPC+1 

«MOVE! WRMEM! INCMAR! IMM! <3>> 


MEMINC IMM, 300 
MICPC=MICPCS1 


«MOVE! WRMEM! INCMAR! IMM! <309>> 


LOMA ° IMM. REPCS 
MICPC=MICPC41 
“IF IDN IMM, IMM 


;LOAD ACDRESS OF TYPE FIELD IN 


;LOAD REP TYPE 


;2ERO THE SUS-TYPE 


:;CUMULATIVE REPS RECO 


PAGE: O15¢ 


UNNUMS S< 


Ile 


OMCL1 DOCMP PROTOCOL INPLENENTAT ION MACY11 27(1006) 14-DEC-76 16:44 PAGE 8-18 PAGE: 
DDCHGH.MAC O&-DEC-76 11:34 TIMSRV--TIMEGUT ROUTINE--SENDS REP 
1) 014576 010015 «MOVE! LDMAR! IMM! <REPCS8377>> 
(1) ‘ 
(1) (MOVE! LDMAR! IMM! <REPCS> > 
iL) 000 ENDC 
164: 014600 SP MEMX, SELB, SPO COPY IT TO SPO 
ch) nO1205 MICPC=MICPC+] 
‘1) O246800 943220 (MOVE! SPX! MEMX! SELB! SPO> 
(1) 
142 014602 MEM BR, INCA! SPO ; INCREMENT IT 
1) 001306 MICPC=MICPC+1 
dD) 014602 O62460 <MOVE! WRMEM! BR! < INCA! SPO> > 
1643 O14G04 LOMA IMM. REPST ;ADDRESS DYNAMIS REP COUNTER 
(1) 001307 NICPCNICPCS1 
Ch) IF IDN IMM, IMM 
oe 014804 010003 «HOVE !LOMAR! IMM! <REPST8377> 
(13 <MOVE!LDMAR! IMM! <REPST> > 
ae 000 ENDC 
1644 O14606 BRWRTE MEMX, SELB sCOPY IT TO THE BR 
(1) 091310 MICPC=MICPC+1 
(h) 014608 40620 <MOVE! WRTEBR! MEMX! <SELB> > 
1645 014610 BSHFTB 
(1) 001311 MICPC=MICPC+1 
(1) 014610 061620 «MOVE! SHF TBR! SELB! BR> 
1846 014612 MEM BR, SEL 
C1) 901312 MICPC=MICPC+1 
Ch) O14612 O62620 (MOVE! WRMEM! BR! <SELB> > 
1647 014614 BRO RTHRES 
C1) 001313 MICPC=MICPC+1 
1) C14614 106372 < JUMP! BROCON! <RTHRES-INIT&3000%4> ! <RTHRES-INIT8777/2) > 
1648 001 .IF DF SLOW E 
1649 BRWRTE IMM, 201 sMASK FOR OK TO SEND 
1650 SP BR, AORB, SP10 ;OR IT IN 
1651 000 .E 
ni; ae 001314 Rays ropes 
(1) O14616 100461 Mee? re CONDE < IDLE-INIT$3000%4> # < IDLE- -INIT38777/2>> 
J 
1663 .DSABLE LSB 
1es4 : 
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1656 014620 TEOM: SBRWRTE IBUS,UBBR 
(1) 001315 MICPC=MICPC+i 
() 014620 120620 (MOVE! WRTEBR! IBUS! <UBBR> > 
\ 
is&? 014622 BRO NXMERR :NON-EXISTANT MEMORY 
(1) 901316 MICPC=MICPC+1 
cD) 014622 106351 < JUMP! BROCON! <NXMERR-INIT&3000%#4> ! <NXMERR-INIT8777/2>> 
1658 014624 BRWRTE IMM.2 sEOM TO BR 
(1) 001317 MICPC=MICPC4I 
ch) 014624 900402 (MOVE! WRTEBR! IMM! <2>> 
1659 014626 OUTPUT BR, <SELB!OTMTCO> WRITE TMTR CONTROL 
(1) 001320 MICPC=MICPC+1 
ch) 014626 062231 <MOVE !WROUT! BR! <SELB!OTMTCO> > 
1860 014630 OUTPUT BR, <SEL9! TMTDAT> sWRITE GARBAGE DATA 
(1) 001321 MICPC=MICPC+1 
(1) 014630 062230 (MOVE! WROUT! BR! «SELB! TMTDAT> > 
i661 014632 BRWRTE BR SELA!SP1 :CKECK FOR BOOT MODE 
(1) 901322 MICPC=MICPC41 ! 
(1) 04632 OS0601 (MOVE! WRTEBR! BR! <SELA!SP1>> 
1662 014634 BR? BTEOM ;---IF SET IS MAINT MSG 
(1) 001323 NICPC=NICPC + 
(1) 014634 113762 < JUMP! BR7CON! <BTEOM-INIT&3000%4> ! <BTEOM-INIT877772) > 
1663 014636 sp BR, INCA, SP12 s INCREMENT THE MESSAGE NUMSER 
(1) 001324 MICPC=MICPC+1 
1) 014636 963072 (MOVE! SPX! BR! INCA! SP12> 
1864 O2464C TEOM1: LOMA BR,SELA!SP16 ADDRESS LAST TMT LINK 
(1) 001325 MICPC=MICPC+1 
(1) 001 _IF IDN BR, IMM 
(1) HOVE !LDMAR? IMM! «SELA! SP1$8377>> 
(1) C1464 O70216 (MOVE! LOMAR! BR! <SELA!SP16>> 
(1) 600 END | 
1665 O1464e2 BRWRTE MEMX, SELB 
(1) 001326 MICPC=MICPC+] 
(1) O14e4e 040620 (MOVE ! WATEBR! MEMX! <SELB> > ! 
1666 14644 BRO TEOM2 
(1) 001327 MICPC=MICPC+1 
(1) C14e44 112340 < JUMP! BROCON! < TEOM2- INI T83000%4> ! < TEOM2-INIT8777/2>> : 
; 
1667 Cl4E46 TEOM3: BRWRTE IMM, 375 ;TURN OFF MESSAGE PENDING ’ 
(1) 001330 MICPC=MICPC+1 nap 
(1) 014646 000775 <MOVE!WRTEBR! IMM! <375>> 
1668 014650 SPBR BR AANDB, SP10 : 
(1) 001331 MICPC=MICPC+1 
oe S14650 063670 <MOVE! SPBRX! BR! AANDB! SP10> 


aye DOCMP PROTOCOL as tne 


GH. MAC 06-DEC-76 1 
1669 014652 
()) 001332 
+t 014652 112340 
ig?79 
1671 O146S4 
(1) 001333 
(1) CO1 
(4 014654 010151 
(1) 
(1) 000 
(1) 
1672 Ol146S6 
(1) 001334 
i 014656 016401 
( 
1673 014660 
(1) 001335 
Hf 014660 o0040S 
1674 O14662 
(1) 001336 
ts 014662 016700 
1675 014664 
(1) 001337 
4 O146E4 063310 
1528 
167 001 
1678 
1679 
1680 ooo 
i681 001 
1682 O14666 
{]) 001340 
(1) Cl4Y6E6 000403 
(1) 001341 
4) 014670 063222 
1683 01467 
(1) 001342 
tt 014672 100454 
1684 oco 
{Bee 014674 
(1) 001343 
iH 014674 120600 
1686 014676 
(1) 001344 
tt} 014676 102051 
1687 014700 
+! i 001345 
(1) 014709 070604 
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TIMSRV--TIMEOQUT ROUTINE--SENDS 


SNDACK: 


SRe: 


SA3: 


TEOMe: 


TEOMe: 


FUDGE: 


BRO. weet ;IF UNNUMB PENDING--GO AWAY 
JUMP! BROCON? <TEOM2-INIT&3000%4> ! < TEOM2-INIT8777/2>> 
BITL SNOACK--ROUTINE TO SEND AN ACK 
LOMA 
HICPCSMICPCH 
IF ION IMM, IMM 
«HOVE! LOMAR! IMM! <78377>> . 
(MOVE !LOMAR! IMM! <T>> 
.ENOC 


MEMINC IMM, 1 
MICPC=MICPC$1 
«MOVE! WRMEM! INCMAR! IMM! <1>> 


BRWRTE IMM.S 
MICPC=MICPC41 

«MOVE! WRTEBR! IMM! <S>> 
MEMINC IMM, 300 


MICPC=MICPC41 
T HOVE! NEM! INCMAR! IMM! <300> > 


SP BR, AORB, SP10 
MICPC=MICPE+1 
(MOVE ! SPX! BR! AORB! SP10> 


‘TE DF SLOW 
STATE TMTA 
ALWAYS XEXIT 


AT! Nb 
MICPC=MICPC+1 
«MOVE! ee oe eee 772>> 
MICPC=MICPC+1 
<HOYE Lor x: GR: SELB! SPE) 


AL 
MICPC=MICPC+1 
«JUMP! ALCOND! <T1-INIT&3000#4> !<I1-INIT877772>> 


BRUR E IBUS,NPR ;READ NPR CONTROL 
MICPC=MICPC+ 
«MOVE !WRTEBR! IBUS! <NPR> > 


BRO IOLE ;IF NPR GOING---LEAVE 
MICPC=MICPC+1 

< JUMP! BROCON! < IDLE-INIT&3000#4> ! < IDLE-INIT877772>> 
poste RALONAR, SELA!SP4 ;LOAD THE MAR 


MICPC=M 
HOVE! URTEBR! BR! LOMAR! <SELA!SP4> > 


Lle 
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om 
P Le 


l 
GH O6-DEC-76 11:34 K--ROUTINE T 
(1) 

1688 014702 BR? Bs2 sIF SET - READ BACK ALL 200 
C1) 001346 MICPC=MICPC+1 
(1) 014702 103520 < JUMP! BR7CON! <BS2-INIT&3000#4> ! <BS2-INIT8777/2>> 

1688 014704 MEMINC IBUS, INDATI OTHERWISE RESTORE TWO BYTES 
(1) 001347 MICPC=MICPC+i 
1) 014704 936400 (MOVE! WRMEM! INCMAR! IBUS! <INDATL>> 

1630 014706 MENINC gus INDAT2 » | 
(1) 001350 MICPC=MICPC+1 
(1) 014706 036420 <MOVE! WRMEM! INCMAR! IBUS! < INDAT2> > 
{ 

1631 014710 BRURTE ditt 2 ;UPDATE---UNIBUS ADDRESS 
(i) 001351 MICPC=MICPC41 
) 014710 900402 (MOVE! WRTEBR! IMM! <2>> 

1692 014712 SP BR ADD, SP4 ; UPDATE NPR COUNTER 
(1) 991352 MICPC=MICPC+1 
(1) 014712 4 <MOVE! SPX! BR! ADD! SP4 | 

1693 014714 SP IBUS, IIBAL, SPO ;UPDATE ADDRESS LOW 
(1) 091353 MICPC=MICPC+i 
(1) 014714 023100 <MOVE! SPX! TBUS! IIBAL! SPO? 

1654 014716 OUTPUT BR,ADD!IBAL 
(1) 001354 MICPC=MICPC+1 
1) 014716 062004 (MOVE! WROUT! BR! <ADD! IBAL> > 

1695 014720 SP IBUS, IIBA2, SPO ;READ HIGH ADDRESS 
(1) 001355 MICPC=MICPC+i 
(1) 014720 023120 «MOVE! SPX! IBUS! IIBA2! SPO> 

16% 014722 OUTPUT Ac! 1BA2 ;UPDATE HIGH 
(1) 001356 MICPC=MICPC+1 
(1) 014722 062105 «MOVE! WROUT! BR! <AC! IBA2> > 

1697 014724 sp IBUS, NPR, SPO ;READ NPR REGISTER ) 
(i) 001357 MICPC=MICPC+] | 
(1) 014724 123200 <MOVE! SPX! TBUS! NPR! SPO> | 

1698 014726 C RESEXT IF CARRY---UPDATE MXT 
(1) 001360 MICPC=MICPC+1 
(1) 014726 105363 < JUMP! CCOND! <RESEXT-INITS&3000%4> ! <RESEXT-INIT8777/2> > | 

1699 014730 ALWAYS TH3X :GO DO ANOTHER NPR 
(1) 901361 MICPC=MICPC+1 
i) 014730 110601 < JUMP! ALCOND! < TH3X-INIT&3000%4> ! <TH3X-INIT877772> > 

1700 014732 BTEOM: BRWRTE IMM, 374 ;MASK FOR CLEAR MSG PENDING 
(1) 001362 MICPC=MICPC$1 
. ) 014732 000774 (MOVE! WRTEBR! IMM! <374> > 

; 

1701 014734 SP ae AANDB, SP1O ;TURN THEM OFF IN LINE STATUS WORD 
(1) 001363 MICPC=MICPC+1 
(13 014734 063270 «MOVE! SPX! BR! AANDB! SP1O> 


Mle 


MC11 DDCMP PROTOCOL NPLENENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 8-22 PAGE: 
DCHGH.MAC  O6-DEC-76 11:34 SNDACK--ROUTINE TO SEND AN ACK 
(1) 
1702 014736 SP SELB, SP13 STORE UNRECOGNIZABLE VALUE INTO SP13 
(1) 001364 MICPC=MICPC41 
(1) 014736 063233 «MOVE! SPX! BR! SELB! SP13> 
1703 ;50 “RH3" WILL EXIT BACK TO IDLE LOOP 
1704 014740 LOMA —_—IMM, STC ADDRESS START OF TMT CHAIN 
(1) 001365 NICPC=NTCPCH 
(1) 001 IF IDN IMM, IMM 
(1) O14740 010067 «HOVE LOMAR! IMM! <STC8377>> 
(1) HOVE! LOMAR! IMM! <STC>> 
3B - 
1705 014742 SP Pa X, SELB, SPO COPY LINK ADDRESS 
(1) 001366 MICPC=MI 
1} 014742 043220 Bee Ce cei BrSPO> 
1706 001 .IF DOF SLOW 
1707 te TSTATE NUMSYN sCHANGE XMIT STATE TO LINE IS IDLE 
1709 001 “IF NOF SLOW 
1719 O14744 TSTATE TMTA CHANGE XMIT STATE TO LINE IS IDLE 
(1) 001367 MICPC=MICPC+1 
(1) O14744 900403 (MOVE! WRTEBR! IMM! <TMTA-INIT&777/2>> 
(1) 001370 pie post +i 
(1) 14746 06322 | Ci BRESELB! SP2> 
1711 000 ZENE 
i7ie 014750 ant 8 WAYS, TONE POST A DONE 
1) 014750 114532 nyGrcs ALONE <TDON2-INIT&3000%4> ! < TDON2-INIT8777/2>> 
1713 014752 RLY: RSTATE RCV 
(1) 001372 NICPC=NICPC 
(1) o147S2 000705 «MO URTEBR! IMM! cRCVL- INIT8777/2>> 
(1) 001373 MIC 
(1) 014754 063222 CROVE!SPXYGR! SEL BSP 
1714 014756 “a rc f I NPR, SPO READ NPR CONTROL REGISTER 
(1) 014756 ree Hove SPX ae NPR! SPO) 
1715 014760 TE IMM, 221 
(1) 001375 SR OPCEMTOPCH 
(1) 014760 000621 (MOVE! WRTEBR! IMM! <221>> 
1716 014762 ALWAYS RK? 
(1) 001376 MICPC=MICPC+1 
014762 104623 < JUMP! ALCOND! <RK7-INIT&3000#4> ! <RK7-INIT8777/2>> 
1717 014764 HOINCH: SP IIBA2, SPO 
(1) 1377 atcpcenrceeet 
CO) 014764 023120 «MOVE! SPX! TBUS! IIBA2! SPO> 
17 8 014766 BR, INCA! IBAZ ;OQUTPUT INCREMENTED BA 
y) 
{hj 


bbe oe: 


sie7ee, BE RIGPSMIEPL anon Tae) 


o1ss 


oo 2 eee neo ee oe owe wee aoe 
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(1) 

1513 014770 C S$ ; INCREMENT BYTEW COUNT 

(1) 001401 MICPC=MICPC+1 

(1) 014770 115003 «JUMP! CCOND! <S$-INIT&3000#4> ! <S$-INIT&77772) > 

1720 014772 WAYS T 

(1) 001402 RE OPCOMICPE+1 

> 014772 110571 < JUMP! ALCOND! < TH@-INIT&3000#4> ! <THB-INIT&777/2>> 

? , T MXT BIT 

1253 014774 cs: deen TS NPR SPo READ NPR REG IWTH CURRENT MXT BITS 

(1) 001403 MICPC=MICPC+1 

) 014774 123200 <MOVE! SPX! TBUS! NPR! SPO> 

1763 014776 : BRURTE Loa WRITE BIT TO ADD 

OL =| 

iH 014776 BO Aaod OEE TR EBRE IMM! <> > 

1724 015000 : Our pees oe ; TURN ON PROPER MXT BITS 

d) 015000 stat CHS VET LA Xt BR! <ADD! ONPR> > 

1725 o1iS002 ALWAYS THE 

(1) 001406 MICPC=MICPC+1 

(1) o1soo2 110571 <JUMP! ALCOND! < TH8-INIT&3000#4> ! < TH@-INIT8&777/2>> 

1726 : 

1727 001 "IF DF LOW 

1728 o1S004 HEH1: STATE TEOM 

(1) 001407 MICPC=MICPC+1 

(1) oO1S004 900715 (MOVE ! WRTEBR! IMM! < TEOM-INIT8777/2>> 

1723 015006 ALWAY XIT 

(1) 0c1410 MICPC=MICPC+1 - 

1) 015006 110563 < JUMP! ALCOND! <XEXIT-INIT&3000#4> ! <XEXIT-INIT&777/2> > 
1730 000 .ENDC 

1731 ; 

1732 001 "IF NOF LOW 

1733 HEH1: STATE TEOM 

1734 ALWAYS I! 

1735 000 


B13 
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1737 .SBTTL REP HANDLER 
1738 O1S010 “ER! IMM, REPCR sLOAD MAR ADDRESS WITH POINTER TO REPS RECC 
(1) 001411 MICPC=MICPCH1 

1} 001 .IF ION IMM, IMM 

(1) O1S010 010016 <HOVE!LDMAR! IMM! <REPCR8377> 

(1) <MOVE! LOMAR! IMM! <REPCR> > 

: 000 ENDC 
1739 015012 SP MEMX, SELB, SPO ;READ NUMBER OF REPS RECD 
(1) 001412 MICPC=MICPC+] 

(1) 015012 043220 <MOVE ! SPX! MEMX! SELB! SPO> 

1740 o1s014 MEM DP, <INCA!SPO> s INCREMNT REPS RECD 

(1) 001413 MICPC=MICPC+1 

1) 015014 O62460 (MOVE! WRMEM! DP! <INCA!SPO>> 

174: O1S016 LOMA —sIMM, T sLOAD ADDRESS OF TYPE FIELD 
(1) 001414 MICPC=MICPC41 

(1) i .IF IDN IMM, IMM 

Ch) 015016 010iS1 <MOVE!LDMAR! IMM! <T8&377>> 

(1) (MOVE! LDMAR! IMM! <T>> 

(1) coo .ENDC 
1742 015020 MENINC IMM, 2 ; LOAD NAK TYPE 

(1) 001415 MICPC=MICPCH1 

(1) 015020 O16402 (MOVE! WRMEM! INCMAR! IMM! <2>> 
1743 015022 MEMINC IMM, 303 ;LOAD REP RESPONSE SUB-TYPE 
(1) 901416 NICPC=MICEC? 

(1) o1sa22 016703 (MOVE! WRMEM! INCMAR! IMM! <303>> 
1744 015024 ALWAYS SNAK :SEND AN UNNUMB MSG 

(1) 001417 MICPC=MICPC+1 

( 1) 015024 114704 < JUMP! ALCOND! <SNAK-INIT&3000#4> ! <SNAK-INIT8777/2>> 
1745 ; 
1746 *SBTTL START HANDLER 
1747 015026 START: BRWRTE ODP, <SELA!SP1O> ;READ LINE STATUS WORD 

(1) 001420 MICPC=MICPC+1 

(1) o1s026 069610 <MOVE ! WRTEBR! DP! <SELA!SP10>> 

1748 015030 | BRSHFT GET START MODE BIT IN TESTABLE POSITION 
(1) 001421 MICPC=MICPC+1 

se 015030 001620 <MOVE ! SHF TBR! WRTEBR! SELB> 

i749 015032 BRY 10$ sIF IN START MODE SET STACK 
(1) 001422 MICPC=MICPC+1 

(1) 015032 117026 < JUMP! BRYCON! < LOS-INIT83000%4> !< 10$-INIT877772>> 

1750 sELSE SET UP START ERROR 
1751 015034 LOMA IMM, <<RTHRS+3> > 

(13 001423 MICPC=MICPC41 

1) 1 -IF IDN IMM, IMM 

{1} 018034 010177 (MOVE !LOMAR! IMM! < <RTHRS+3>8377>> 
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(1) IFF 
(1) <MOVE!LOMAR! IMM! < <RTHRS+2> >> 
ct) 000 .ENDC 
i752 015036 BRWRTE IMM. 200 
(1) 001424 MICPC=MICPCHI 
h) 015036 000600 (MOVE! WRTEBR! IMM! <200> > 
1753 015040 ALWAYS RCEXY 
(1) 001425 MICPC=MICPC+1 
(1) 015049 114522 < JUMP! ALCOND! <RCEXY-INIT&3000%4 ! <RCEXY-INIT877772> > 
17e4 01s042 10$: LOMA —_IMM,T ;SET UP ADDRESS OF TYPE FIELD 
(1) 001426 MICPC=MICPC+1 
(1) 001 IF IDN IMM, IMM 
(1) 015042 010151 (MOVE !LOMAR! IMM? «183779» 
(1) (MOVE! LDMAR! IMM! <T>> 
1) 000 .ENDC 
i755 o1s5044 MEMINC IMM,7 :WRITE STACK TYPE 
(1) 001427 MICPC=MICPC#1 
(1) 0:S5044 016407 (MOVE! WRMEM! INCMAR! IMM! <7>> 
1756 915046 BRWRTE IMM, 11 ;SET START RECD ANG UNNUMB PENDING 
(1) 001430 MICPC=MICPC+1 
1) 015046 o00411 (MOVE! WRTEBR! IMM! <11>> 
1757 o15050 ALWAYS She ;SEND THE UNNUMBERED MESSAGE 
(1) 001431 MICPC=MICPC+1 
(1) o1S0SO 110736 < JUMP! ALCOND! <SA2-INIT&3000#4> ! <SA2-INIT&777/2>> 
1758 ; 
1759 "SBTTL STACK HANDLER 
1760 15052 STACK: BRWRTE IMM. 327 :MASK TS CLEAR START MODE 
(1) 001432 MICPC=MICPC41 
1) o1sos2 900727 (MOVE ! WRTEBR! IMM! <327>> 
1761 oO1SO0S4 sp BR, AANDB, SP10 sCLEAR START MODE 
(1) 001433 MICPC=MICPC+1 
1) 0150S4 063270 «MOVE! SPX! BR! AANDB! SP19> 
3 
1762 O1SOS6 ALWAYS TIME] :RESET TIMER AND IDLE 
(1) 901434 MICPC=MICPC+1 
(1) 915056 110670 < JUMP! ALCOND! <TIME1-INIT33000%4> !< TIMEL-INIT8777/2> > 
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015062 

15062 
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STACK HANDLER 


ICBAee: SP IBUS, IOBA2, SPO 


S$: 


FLUSH1: 


NAK: 


;READTHEHIGH ORDERBITS OF BA TO SPO 
MICPC=MICPC+] 
<MOVE! SPX! IBUS! IOBA2! SPO> 


OUTPUT DP. <INCA!OBR2> 
MICPC=MICPE+1 
<MOVE ! WROUT! DP! < INCA! OBR2> > 


;OUTPUT THE INCREMENTED COUNT 


c S$ ;IF CARRY SET INCREMENT THE MXTBITS 
MICPC=MICPC+1 

< JUMP! CCOND! <S$-INIT&300044 ! <S$-INIT377772>> 
ALWAYS RK3 

MICPC=MICPC4+1 

< JUMP! ALCOND! <RK3-INITS83000#4> ! <RK3-INIT&777/2>> 
bp IBUS , UBBR, SPO 

MICPC=MICPC+] 

<MOVE! SPX! IBUS! UBBR! SPO> 

BRWRTE IMM,4 

MICPC=MICPC41 

«MOVE! WRTEBR! IMM! <4>> 

OUT BR, <ADD! OBR» 

MICPC=MICPC+1 

(MOVE! WROUTX! BR! <ADD! OBR > 

ALWAYS RK3 

MICPC=MICPC+1 

« JUMP! ALCOND! <RK3-INIT&3000#4> ! <RK3-INIT877772>> 


.IF OF SLOW 

OUTPUT IMM, <200!0RCVCO> ;FLUSH THE RECVR 
ALWAYS CGl 

.ENOC 

LOMA IMM, NDATR 
MICPC=MICPC41 

: MM, IMM 

«HOVE !LOMAR! IMM <NDATRS377> 
«MOVE! LDOMAR! IMM! <NDATR> > 
ENDC 


;CUMMULATIVE NAK COUNTER 


SP MEMX, SELB, SPO READ IT 
MICPC=MICPC+] 
<MOVE ! SPX! MEMX! SELB! SPO> 


MEMX , INCA! SPO ; INCREMENT THE COUNTER 
MICPC= MICPC+ 
«MOVE! WRMEM! MEMX! < INCA! SPO> > 


LOMA IMM, STC ;ADDRESS START OF TMT CHAIN 
HT CPCAMICPCHT 
.IF ION IMM, IMM 


0159 
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) O15106 010067 MOVE SLOMAR! IMM? <STC8377> 
ae (MOVE! LOMAR! IMM! <STC>> 

(13 0c . ENDC 

178; 015110 SP MX, SELB, SP16 -COPY START OF CHAIN TO LAST XMIT POINTER 
1} 001451 MICPC=MICPC+] 

iD) 015110 943236 <MOVE! SPX! MEMX! SELB! SP 16> 
1782 015112 BRWRTE BR, INCA!SP17 :GETLASTMESSAGE ACKED 
(1) 001452 MICPC=MICPC41 

1) 015112 060477 <MOVE! WRTEBR! BR! <INCA!SP17>> 

\ 
1783 015114 SP BR, SELB, SPi2 ;COPY TO CURRENT NUMBER 
(1) 001453 MICPC=MICPC+1 

(1) 015114 063232 (MOVE! SPX! BR! SELB! SP 12> 
1544 015116 BRWRTE IMM,6 ;WRITE NUMBERED MSG PENDING 
(1) 001454 MICPC=MICPC+1 

(1) 015116 00406 (MOVE! WRTEBR! IMM! <&>> 

\ 
pas ; AND LINE HAS GONE IDLE 
1786 015120 SP BR, AORB, SP10 :SET IT IN LINE STATUS WORD 
(1) co14s5 MICPC=MICPC+1 

h) 015120 963212 (MOVE! SPX! BR! AORB! SP10> 

\ 
1787 015122 SP BR, SELB, SP1S sRESET TIMER COUNT 

(1) 001456 MICPC=MICPC+1 

(1) 015122 063235 <MOVE! SPX! BR! SELB!SP15> 
1788 015124 ALWAYS _TEOMI 

(1) 001457 MICPC=MICPC+1 

1) 015124 110725 < JUMP! ALCOND! < TEOMI-INITS3000#4> ! < TEOM1-INIT$777/2>> 
1789 015126 ININT: BRWRTE IMM.15 :MASK FOR TURN OFF ALL BUT EXT MEM BITS + NXM 
(1) 091460 MICPC=MICPC41 

1) 015126 oo04i5 (MOVE! WRTEBR! IMM! <1S>> 
1940 015130 sp 1BUS UBBR, SPO ;READ BR CONTROL REGISTER 
(i) 001461 MICPC=MICPC+] 

d 015130 123220 «MOVE! SPX! IBUS! UBBR! SPO> 
1791 015132 SP BR, AANDB, SPO sMASK OFF VECTOR TO XO¥4 

(1) 901462 MICPC=MICPC+) 

(ih) 015132 963260 (MOVE! SPX! BR! aan! SPO> 
1792 015134 BRWRTE IMM, 200 :MASK FOR INTERRUPT 

(13 001463 MICPC=MICPC+1 

Ch) 0iS134 900600 «MOVE! WRTEBR! IMM! <200>> 

J 

1793 915136 OUT BR, AORB! OBR ; INTERRUPT 

(1) 001464 MICPC=MICPC+1 

(1) 015136 061311 (MOVE! WROUTX! BR! <AORB! OBR? > 

oe Wr 

1784 O15140 SP 1BUS, INCON, SPO :RESTORE INPUT CONTROL CSR 
CL} on14es MICPC=MICPC+1 


F13 
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CoCo GH. M 06-DEC-7 61 ll 1:34 STACK 
(1) O18140 123000 (MOVE! SPX! IBUS! INCON! SPO) 
1755 01142 ALWAYS NIDLEY 
(1) OOL4E6 MICPC=MICPC+1 
:t) ousi42 1D0ss4 <TUMP!ALCOND! <NIDLEY-INIT&3000#4> ! NIDLEY-INIT8777/2) > 
iG 
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OMCL1 cone PROTOCOL NPLEN NTATION MACYL1 27(1906) 14-DEC-76 16:44 PAGE 9-29 PAGE: 162 
BDZHGH.MAC  O6-DEC~76 [1 STACK HANDLER 
1798 001 IF OF Rn 
1799 “SBTTL NXMERR ---NON EXISTANT MEMORY HANDLER 
1800 NXMERR: LOMA IMM, <<RTHRS+3) > sADDRESS ERROR LINK 
125 MINC IMM, 
1802 SP NENK, SELB, P20 ‘CLEAR STATUS 
1904 ALWAYS RCEXX 
1856 oo EN 
180? FUGITIVE WRECEIVE ROUTINES---DON’T FIT IN PAGE 
1808 015144 anad RHI: BRURTE IM 
(1) o1si44 500477 niceeente i cace 
ida 
180S o15146 sp BR, AANDB, SPS 
(1) 00147¢ MICPC=MICPC+1 
cD 015146 O&3265 «MOVE! SPX! BR! AANDB! SPS> 
{]) 
1810 015150 LOMA _BR, <INCA!SP14> ;LOAD ADDRESS OF CURRENT COUNT 
(1) 001471 MICPC=MICPC+1 
(1) 001 IF IDN 
1) Hove !LORAA! rm! cINCRESPL48377>> 
(1) O15150 o70074 <MOVE! LDMAR! BR! < INCA! SP14> > 
ch ood . ENDC 
1811 015152 SP BR! INCHAR, SELB, SPO sSAVE MASK 
(1) 901472 MICPC=MICPC+1 
(i) o1siSe 677220 <MOVE! SPX! BR! INCMAR! SELB! SPO? 
a? 
1812 o1S1S4 BRWRTE BR! INCHAR, SELA!SP1 ;READ STATUS BYTE 
(1) 901473 NICPC=MICPC 
fh) 015154 374801 <MOVE! EBRIBR! INCMAR! <SELA!SP1>> 
ie | 
1813 O1S1S6 BRSHFT ;SHIFT IT RIGHT 
(1) 001474 MICPC=MICPC 
1) 015156 901820 HOVE! SHE TBR! MRTEBR! SELB? 
1814 015160 BR1 RHe ;NO BUFFER ASSIGNED IN MAINT MOCE 
(1) 001475 MICPC=MICPC+1 
1) O1s1e0 116502 < JUMP! BRICON! <RH2-INIT$3000%4> ! <RH2-INIT8777/2>> 
} 
1815 O15162 BRWRTE MEMX!INCMAR,AANDB!SPO  ;GET HIGH BYTE COUNT SITS 
(1) 001476 MICPC=MICPC+1 
dt) 015162 OS4EED (MOVE! WRTEBR! MEMX! INCMAR! <AANDB!SPO> > 
1816 C1564 CMP BR, SPS ;COMPARE HIGH ORDER BITS OF COUNT 
(ii 00147 MICPC=MICPC+1 
ch C1S164 O60365 <SUBTC! BR! SPS> 
42 
1817 O1S166 C RCEATL IF CARRY--TOO BIG ERROR 
(1) 001509 HICPC=HICRC 
ib) O1S166 Lisil <JUMPIC ONS! ERCFATL- -INIT$3000#4> ! <RCFATL-INIT8777/2>> 
1818 O1S170 __ 2 RCLOW sIF EQUAL COMPARE LON ORDER BITS OF COUNT 
13 003501 MICPC=MICPC+! 
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BOZHGH.MAC ©: &-DEC-76 11:34 STACK HANDLER 
ae 015170 115510 < JUMP! ZCOND! <RCLOW-INIT83000#4> ! <RCLOW-INIT3877772>> 
1819 015172 RH2:  BRWRTE IBUS, IOBAl -READ LOW BYTE OF IN BA 
ch} 991502 MICPC=MICPC+h 
4 015172 920545 (MOVE! WRTEBR! IBUS! <IOBAL>> 
1820 O1S174 BRO RCVODD IF SET IS ODD TRANSFER 
C1) 991503 MICPC=MICPC+1 
cf) 015174 116106 JUMP! BROCON! <RCVODD-INIT$3000#4> ! <RCVODD-INIT877772> > 
Ve 
1921 01 .IF NOF LOW 
1822 BRWRTE IBUS,RCVCON :1S THE RECEIVER READY? 
1823 BRY RCVKEO :YES--GO PROCESS 
ige4 000 2 ENG 
1825 015176 STATE RCVKEO 
(1) 901504 MICPC=MICPC+1 
(1) 15:76 OCO&6O (MOVE! WRTEBR! IMM! <RCVKEO-INIT8777/2) > 
“5 OISE00 isos RICPCOMICEC#] 
ee oiseo0 100450 < JUMP! ALCOND! <REXIT-INITS3COO#4> ! <REXIT-INITS77772) > 
\ 
1827 ; 
1928 oiSe202 RcvODD: STATE RCVKOL 
1) 001506 MICPC=MICPC+1 
(1) 915202 d00607 CMOVE !WRTEBR! IMM! <RCVKOL-INIT8777/2> > 
1829 815504 ALWAYS REXIT 
(1) 001507 MICPC=MICPC41 , i . 
it) 915204 190450 (JUMP! ALCOND! <REXIT-INIT830008#4 ! <REXIT-INIT8777/2> > 
1836 , 
1831 o1S206 ACLOW: CMP MEMX, SP4 :COMPARE LOW ORDER BITS OF COUNT 
(1) oc1510 MICPC=MICPC+1 
1) o1S20¢ 040364 <SUBTC! MEMX! SP4> 
we 9) 
1832 015210 ¢ RCFATL sCARRY--TOC BIG 
1) 001511 MICPC=MICPC+1 
oD) o1Sei0 115113 <JUMP! CCOND! <RCFATL-INITS3C00#4> ! <RCFATL-INITS777/2>> 
1833 915212 Ways, RHE sELSE CONTINUE 
(1 001512 MICPC=MICPC+1 
ae g1s212 114502 <JUMP! ALCOND! <RH2-INITS3000#4> ! <RH2-INIT8?777“2> > 
, 
1834 o1S214 RCFATL: LOMA _IMM.T 
1) 901512 NECPCsMI pct 
ee Ray "IE. TDN. IMM, IMM 
(1) 018224 019751 «HOVE !LDMAR! IMM8 <78377>> 
(T) <MOVE!LOMAR! IMME <T> 
(13 oc ~END 
i | 
1935 S1S21€ MEMINC IMM,2 
1) 001514 MICPC=MICPC41 
(1) O1Se1e O164de MOVE! WRMEM! INCMAR! IMM! <2>> 
1836 018220 


MEM IMM, 311 
coisis MICPC=MICPC+1 
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(1) 018220 902711 (MOVE! WRMEM! IMM! <311>> 
1837 o1S222 LOMA Inn, <«<RTHRS+1>> s ADDRESS ERROR LINK 
C1) 001516 MICPC=MICPC41 
2f) 091 LIF doh TMM, IMM 
(1) 91s222 010178 “MOVE !LDMAR! IMM! < <RTHRS+1>8377>> 
a6) <MOVE!LDMAR! IMM! <<RTHRS+1>>> 
ub) o0c -ENOC 
1838 015224 S, IOBAL 
(1) 001517 nicecancecel 
ob 015224 93654¢ 2 ts TD 
1839 015226 MEMINC IBUS, IOBA2 
Ch) 901520 NICPC=MICPC+ C+} 
(1) 015226 036860 (MOVE ! WRMEM! INCMAR! IBUS! < IOBA2>> 
1840 015230 BRWRTE IMM, 20 
(1) 001521 MICPC=MICPC41 
MD) 015230 990420 (MOVE! WRTEBR! IMM! <20>> 
1841 o:5232 - RCEXY: MEMINC IMM.O 
1) 001522 . eee repesy 
cD) 915232 16409 (MOVE ! WRMEM! INCMAR! IMM! <Q>> 
\ 
1842 015234 . ’ EM R,SELB 
\ 2 
1) 018234 BeeEse rages a 
1843 015236 ay RCEXX: aa IMM, «200! ORCVCO> sFLUSH INPUT SILC 
(1) oiseae S0sei2 OVE! taste Tm! «200! 0RCYCO> 
1844 C1S240 SP IMM, SP2, 2 SINHIBIT FURTHER TRANSMISSIONS 
(1) 001525 MICPC=MICPC41 
(1) o1se4o 903002 <MOVE ! SPX! IMM! SP2!2> 
1845 o1se4e2 SP IMM, 1,SP1 SET INIT MODE IN PORT STATUS WORD 
(1) 001526 MICPC=MICPC41 
(1) o1se¥e 003001 < MOVE! SPX! IMM! 1!SP1> 
1846 c1S244 ALWAYS NTRS! 
(1) 001527 MICPC=MICPC41 
a) 015244 114666 <JUMP!ALCOND! <NTRSL-INITS3000%4> ! <NTRS!-INITS777/2>> 
1847 c1S246 TOONS: BRURT — MEMX, SUB!SP17 COMPARE RESPONSE 70 MSG NO 
(1) 001530 MICPC=MICPC+! 
(1) O1Se46 040757 «MOVE! WRTEBR! MEMX! <SUB!SP17>> 
j 
1842 o1S250 BR? RH3 SIF NEGATIVE EXIT 
(1) 0015231 MICPC=MICPC+1 
W) o1s2s0 107562 < JUMP! BR7CON! <RH3-INITS3000#4> ! «RH3-INITS$?77/2>> 
1849 c1s2s52 TOON2: LOMA BR,SELA!SPO ADDRESS THE TRANSMITLINK 
d3 001532 MICPC=MICPE+1 
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CHGH.MAC © O&-DEC-76 11:34 STACK HAND 
1) 001 IF ION BR 
ae <MOVE! YORRAL TMM! <SELA!SP08377) > 
(1) 015252 o7c209 (MOVE! LDMAR! BR! <SELA!SPO> > 
¢ i) 6 .ENDC 
iss0 o152s4 MEM qn ;TURN OF ASSIGNEDAND TMTED SITS IN FLAG 
(1) 991533 MICPC=NICP a 
(1) 01254 fata (MOVE! WRMEM! IMM! <O>> 
a/ 
1851 015256 LOMA _IMM. STC 
(1) 001534 MICPC=MICPC$1 
(1) 00: IF TON IMM, IMM 
iL) 015256 O10067 «MOVE !LDMAR! IMM! <STC8277> > 
(1) (MOVE! LDMAR! IMM! <STC>> 
1) 000 -ENDC 
1852 015260 MEM IMM, TML1 SASSUME WRAPAROUND 
(1) 001535 MICPC=MICPC41 
a) 015260 002471 <MOVE! WRMEM! IMM! <TMLL>> 
4 
1953 o:S262 BRWRTE IMM. TMLE : WRAPAROUND? 
(1) 001536 See ereeed 
QD) o1S262 000543 (MOVE! WRTEBR! IMM! <TMLS> > 
IBF) OSES efeecansBeeey” 
\ = 
(1) pis2e4 BeAzEA pie array ad 
1855 015266 2 TDONY s YES 
(1) 0c1s40 MICPC=MICPC+1 
a) O1S26& 115543 (JUMP! ZCOND! < TDON4-INIT83000%4> ! < TOONY-INIT3877772> > 
1856 015276 BRWRTE IMM,6 OFFSET FOR NEXT TMT LINK 
(1) 001541 MICPC=MICPC+1 
a) 015270 00406 «MOVE! URTEBR! IMM! <B> 
186? 015272 MEM 0!SPO :UPDATE THE POINTER 
(1) 001542 Pe ecaNIERe 
(1) o1se72 62400 (MOVE! WRMEM! BR! <ADD! SPO> > 
1958 015274 TDON4: NXTSP ADDRESS DONE LINK 
) 001543 ae nicPcsnttBC #1 ~ 
(i; o1se74 010241 HOVE LOMAR! IRR! «NXTSPB77» 
(Hi + MOVE! LOMAR! IMM! <NXTSP> > 
oe 000 <n Je 
; 
1869 915276 LDMA §_MEMX. SELB!SPX!SP3 ADDRESS THE LINK, COPYING 
(1) 001g biscicant 
at novel YOMBRY th ‘tH! < SELB! SPX!SP38377>> 
{}) 
‘13 018276 053222 {MOVE ! LOMAR! MEMX! <SELB!SPX!SP2> > 


OM 
oC: 


pa 
Ie 
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wD) 000 .ENDC 
1860 Ss TO SP 
+e? 015300 MEMINC IMM, 200 i TE at EnTeRUPT TYPE 
(1) 901545 MICPC=MICPC41 
(1 915300 016809 (MOVE! WRMEM! INCMAR! IMM! <200> > 
1862 015302 MEM _—BR, INCA!SPO COPY ACTUAL LINK ADDRESS 
(1) OC1S4e MICPC=MICPC+1 
ib) 015302 O62460 «MOVE! WRMEM! BR! < INCA!SPO> > 
1863 015304 LOMA _ IMM. NXTSP sADDRESS PTR INT STACK 
(1) 091547 NICPC=MICPCS} 
(1) 001 IF IDN IMM, IMM 
dD) 015304 010241 “MOVE! LDMAR! IMM! <NXTSP8377>> 
(1) <MOVE! LDMAR! IMM! <NXTSP> > 
(1) 00 END 
1864 015306 nf iit INTSTK ASSUME WRAP AROUND 
(1) 001550 cPC=NICP 
i) 015306 02542 VETWRMEN! MM! <INTSTK> > 
1865 915310 BRWRTE 1M, ¢<MMEND2) > ;ADDRESS ENDOFINT STACK 
(1) 901551 MICPC=M cpt 
1) 015310 600776 (MOVE ! WR FBR? INM! <<MMEND=2) >> 
1866 915312 CMP ; WRAPAROUND”? 
(1) 0o15s2 SePCaNICRCT I 
a) 015312 960363 <SUBTC! BR! SP3> 
1867 015314 2 opcenn eotie ; YES---BRANCH 
(1) 001553 NICPC=M ICPC+ 
1) 015314 115556 < JUMP! ZCOND! < TDON4O-INIT&3000%4> ! < TDONYO-INIT877772>> 
1868 015316 BRWRTE IMM,2 sOFFSET TO NEXT PAIR 
(1) 001554 MICPC=MICPC41 
(1) 015316 990402 (MOVE! WRTEBR! IMM! <2) > 
1869 015320 BR, AOD! SPS UPDATE POINTER 
(1) OO1555 niceosntt 
(1) 015320 06240 02 oy A 
1870 015322 TDONYO: BRWRTE IMM ;WRITE INTERUPT PENDING 
(1) 001556 MICPC=MICPC41 
(1) O1s322 000420 «MOVE ! FESR! IMM! <20>> 
183 015324 SP AORB, SP1 sIN PORT STATUS WORD 
(13 001557 STCPCAMICRO+s 
(4) 015324 063301 <MOVE ! SPX! BR! AORB! SP1> 
1892 C1S326 LOMA —_—IMM, ETC sADDRESS NEXT EMPTY PTR 
C1) 001560 MICPC=MICPC41 
(1) O01 -IF IDN IMM, IMM 
(1) 018326 010979 «MOVE !LDMAR! THI <ETC8377> 


O16& 
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DDCHGH.MAC O6-DEC-76 11:34 STACK HANDLER 
(1) (MOVE! LDMAR! IMM! <ETC> > 
1) 900 .ENDC 
1873 015330 SP MEMX, SELB, SPO COPY IT TO SPO 
Ch) 001561 MICPC=MICPC+l 
( 1 015330 043220 «MOVE ! SPX! MEMX! SELB! SPO> 
\ 
1874 015332 Lona IMM, STC :GET NEXT DONE PTR 
tf 001562 NICPCSMICECHL 
th) 015332 910 5 chove oman! thm! <STC8377>> 
(13 <MOVE! LDMAR! IMM! <STC>> 
(h) ooo .ENDC 
1875 015334 CMP MEMX, SPO s IDENTICAL? 
(1) 001563 MICPC=MICPC+1 
(1) 015334 O40360 <SUBTC! MEMX! SPO> 
1876 015336 2 RH3 sFINISH PROCESSING HEADER 
(1) 001564 MICPC=MICPC+1 
cd 015336 106562 < JUMP! ZCOND! <RH3-INIT83000%4> ! <RH3-INIT8777/2>> 
1977 
1878 015340 TDON1: LDMA IMM, ISP17 ;GET LAST ACKED 
(1) 001565 NICPC=HICECH 
(1) 015340 pote Hove! Lon TMH: «15P178377>» 
(1) <MOVE! LDMAR! IMM! <ISP17>> 
1) 000 .ENDC 
1879 015342 SP MEMX, SELB, SP17 ;STORE IT IN SP17 
(1) 001566 MICPC=MICPC+] 
1) 015342 043237 (MOVE ! SPX! MEMX! SELB! SP17> 
1880 015344 TC ;GET START OF TMT CHAIN 
(1) 001567 Loe amr Apes 
(1) .IF IDN IMM, IMM 
(1) 015344 010067 «MOVE !LDMAR! IMM! <STC8377> 
(1) <MOVE!LDMAR! IMM! <STC>> 
(1) 900 Pits 
1881 015346 LOMA § MEMX, SELB!SPBRX! SPO ;ADDRESS THE LINK 
(1) 001570 MICPC=MICcPC+] 
(1) Ooi IF IDN MEMX, IMM 
ee “MOVE! LOMAR! fMM! <SELB! SPBRX!SP038377>> 
(1) DIS346 053620 <MOVE! LDMAR! MEMX! «SELB! SPBRX!SPO> > 
1) ayaa} END 
1882 015350 BRWRTE MEMX! INCMAR, SELB :GET THE FLAGS 
(13 901571 MICPC=MICPC+1 
(1) 015350 OS4é20 <MOVE !WRTEBR! MEMX! INCMAR! <SELB>> 
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HGH. 06-DEC-76 11 

1883 015352 BRI TOONS IF BUFFER ASSIGNED PROCEED 
(1) 001572 MICPC=H IC 

( i 015352 116530 < JUMP! BAI CON! <TDON3-INIT&3000%4> ! < TDON3-INIT8777/2>> 
i984 0153S4 nites RH3 ;ELSE---EXIT 
(1) 001573 MICPC=MICPC+ 1 

1) 015354 104562 GMP TAL COND! (RHQ-INIT&3O00%4> ! <RH3-INIT877772) > 
1885 

1886 015356 OVRRUN: BRWRTE IMM.4 

(1) 901574 MICPC=MICPC41 

(1) 015356 O00404 (MOVE! WRTEBR! IMM! <4 > 

1887 015360 ALWAYS NTRSO 

(1) 001575 MICPC=MICPC 

. 015360 114663 JUMP? ALCOND! <NTRSO-INITS3000#4> ! <NTRSO-INIT&77772>> 
1888 

1889 ; INPUTS: 

1890 : SPO = RECEIVE CHARACTER 

1892 015362 PASWRD: SP IBUS, LNOSW, SP13 ;READ PASSWD SWITCH 
(1) 001576 MICPC=MICPC+1 

(1) 015362 023333 <MOVE ! SPX! TBUS! LNOSW! SP12> 

1893 015364 2 10$ :IF ALL ONES NO RLOD ENABLED 
(1) 001577 MICPC=MICPC+1 

1) 015364 115603 < JUMP! ZCOND! < LOS-INIT&83000%4> ! < 10$-INIT8&77772>> 

1894 015366 BRWRTE IMM,6 ;CHECK FOR ENTER MOP MODE 
(1) 901600 MICPC=MICPC+1 | 

(1) 015366 O00406 (MOVE! WRTEBR! IMM! <)> 

1895 015370 CMP BR, SPO 

(i) 001601 MICPC=MICPC+1 

(1) 015370 060360 <SUBTC! BR! SPO> 

189% 015372 2 20s ;IF EQUAL ENTER MOP 
(i) 001602 MICPC=MICPC+1 

(1) 015372 115611 < JUMP! ZCOND! <20$-INIT&3000#4> ! <20$-INIT&777/2>> 

1897 015374 10$: § BRWRTE BR SELA!SP1 ;READ STATUS BYTE 
(1) 001603 MICPC=MICPC+1 

Ch) 015374 O&0601 (MOVE! WRTEBR! BR! <SELA!SP1>> 

1898 015376 BRSHFT ;SHIFT IT RIGHT 

(i) 1604 MICPC=MICPC+1 

4) 015376 001620 (MOVE ! SHF TBR! WRTEBR! SELB> 

1839 015400 BRL RHX ;MESSAGE WITH NO BUFFER ASSIGNED 
(1) 001605 MICPC=MICPC+1 

a 015400 106740 < JUMP! BRICON! <RHX-INIT83000%4> ! <RHX-INIT$777/2> > 

1900 015402 BRSHFT ;SHIFT RIGHT AGAIN 
(1) 001606 MICPC=M ICPC+1 

(1) os4o2 O01620 UASWE? SUF TBREMRTEBR! SELB> 
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O6-DEC-76 11:3 STACK HANDLE’ 
(1) 
1901 o1s4O4 BRI RCVMO ;DLE RECEIVED IN NORMAL MODE 
(1) 001607 MICPC=MICPC+1 
(1) 015404 106732 (JUMP! BRICON! <RCVMO-INIT&3000#4> ! <RCVMO-INIT877772> > 
1902 O15406 ALWAYS RK3 sHANDLE MAINT MODE MESSAGE 
(1) 001610 MICPC=MICPC+1 
1) 015408 104641 < JUMP! ALCOND! <RK3-INIT&3000%4> ! <RK3-INIT&77772> > 
\ 
1903 015410 20$: SP BR, DECA, SP4 ;COUNT FOR NUMB OF COMPARES 
(1) O01611 NicPC=nrCecst 
(1) 015410 063164 <MOVE! SPX! BR! DECA! SP4> 
1904 o1s412 STATE EM2 
(1) 001612 MICPC=MICPC+1 
(1) 015412 000735 (MOVE !WRTEBR! IMM! <EM2-INIT8&77772>> 
1905 015414 ALWAYS XIT 
(1) 001613 MICPC=MICPC+1 
1) 015414 100450 < JUMP! ALCOND! (REXIT-INIT&3009#4> ! <REXIT-INIT877772>> 
1906 ; 
1907 .ENABL LSB 
1apg O1S416 RCVM1: LOMA = IMM,NAKST ;RESET NAKS SENT 
(1) 001614 NICPCSMICEC#L 
(1) 015416 010894 iHovE! LOMA! THR! CNAKSTB7?>> 
(1) <MOVE! LDMAR! IMM! <NAKST> > 
(1) 000 .ENDC 
1910 o1S420 MEM  —sIMM, 1 :. 
(1) 001615 MICPC=MICPC41 
(1) 015420 002401 (MOVE! RMEM! IMM! <1>> 
1911 o1s42e LOMA MM, BC sADDRESS ORIGINAL RECY BYTE COUNT 
(1) 001616 MICPC=MICPC41 
(1) 001 .IF ION IMM, IMM 
(1) 015422 010167 «HOVE !LOMAR! IMM «BCB377>> 
(1) <MOVE!LOMAR! IMM! <BC>> 
(1) 000 .ENDC 
1912 o1s424 sp MEMX! INCMAR,SELB,SP4Y § ; MOVE BYTE COUNT TO SP4 
(1) 001617 MICPC=MICPC+1 
(1) 01s424 057224 «MOVE! SPX! MEMX! INCMAR! SELB! SP4> 
1913 o1S426 sp MX! INCMAR,SELB,SPS § ;AND SPS 
(13 001620 MICPC=MICPC+1 
(1) 015426 057225 «MOVE! SPX! MEMX! INCMAR! SELB! SPS> 
1914 015430 NEN BR DECA!SP11 :COPY SP11 FROM MEMORY 
(1) 901621 M cPcsttl pt+ 
ee 015430 S71 (MOVE! WRMEM! BR! <DECA!SP11>> 
1915 015432 LOMA = _IMM,NXTSP 


14 


‘C11 DDCMP PROTOC MPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 9-37 PAGE: 6170 
BpSteA Case ie att STACK HANDLER 
(1) 001622 MICPC=MICPC+1 
(1) 001 IF TDN IMM, In 
Ch) 015432 010241 «HOVE! LOMAR! 1 IMM! <NXTSP8377> > 
ft) (MOVE! LDMAR! IMM! <NXTSP> > 
(1) 000 ENDC 
1916 o15434 Sp MEMX! LDMAR, SELB, SP3 COPY TO SP2 
(1) 001623 MICPC=MICPC+ i 
ct) 015434 053223 MOVE ! SPX! MEMX! LDMAR! SELB! SP3> 
1917 915436 MEMINC IMM, 204 ;RECEIVE DONE IMAGE 
(1) 001624 . MICPC=MICPC+1 
() 015436 16604 (MOVE! WRMEM! INCMAR! IMM! <204 > 
1918 o1s44o MEM BR! LDMAR, SELA!SP14 :COPY LINK ADDRESS TO NEXT INTER 
(1) 001625 MICPC=MICPC+1 
(1) 01s440 072614 <MOVE ! WRMEM! BR! LDMAR! <SELA!SP14>> 
1919 o1s44e MEMINC IMM,O ;ZERO THE FLAGS 
(1) 001626 MICPC=MICPC41 
1) o1s442 016400 (MOVE! WRMEM! INCMAR! IMM! <> > 
1920 o15444 SP IMM! INCMAR, SPO, 300 ;WRITE A 300 TO SPO 
(1) 001627 MICPC=MICPC+1 
1) 015444 017300 <MOVE! SPX! IMM! INCMAR! SPO! 300> 
1921 o15446 BRWRTE IMM! INCMAR,2 :PREPARE TO ADDRESS NEXT 
(1) 001630 MICPC=MICPC+1 
(1) o1s446 014402 <MOVE! WRTEBR! IMM! INCMAR! <2>> 
1988 CEPT STACK AND INCREMENT 
1924 o154S0 MEM MEMX. AANDB! SPO “MASK OFF ORIGINAL HIGH BYTE 
(1) 00163! MICPC=MICPC+ 
(1) o1s4s0 O42660 (MOVE! WRMEM! MEMX! <AANDB! SPO> > 
1925 OF COUNT SAVING EXTENDED MEM BITS 
1926 o1s4se2 MEMINC MEMX, AORB!SPS :COPY TO MEMORY L 
(1) 001632 MICPC=MICPC+1 
(1) o1s4S2 056705 <MOVE! WRMEM! INCMAR! MEMX! <AORB! SPS> > 
1927 o1S54S4 MEMINC BR, SELA!SPY 
(1) 001633 MICPC=MICcPt+1 
(1) O1S4S4 976604 <MOVE ! WRMEM! INCMAR! BR! <SELA!SP4 > 
1928 O1S4S6 LDMA IMM, NXTSP sADDRESS NEXT INT STACK 
(i) 001634 NICPC=MICHC#L 
(1) 1 IF IDN IMM, IMM 
(1) 015456 010241 HOVE !LDMAR! IMM! (NXTSPB377>> 
(1) <MOVE! LDMAR! IMM! <NXTSP> > 
1) ooo .ENDC 
1829 OLS4E0 MEM BR. ADD! SP3 
(13 001635 MICPC=MICPC+1 
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062403 


001636 
000776 


001637 
060362 


001640 
115651 


00164: 
O004CS 


001642 
063014 


001643 
000467 


001644 
060374 


001645 
115653 


OO1646 
000420 


001647 
083301 
001 


000 
001 


001650 
104415 
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MACY11 27(1006) 14-DEC-76 16:44 PAGE 8-38 PAGE : 
STACK HANDLER 
«MOVE! WRMEM! BR! <ADD! SP3> > 


20s: 


RM1: 


4O$: 


14 


BRWRTE IMM, <<MMEND-2> > 
MICPC=MICPC+1 
(MOVE! WRTEBR! IMM! < <MMEND-2> >> 


:ADDRESSEND OF INT STACK 


CMP BR, SP3 ;WRAP AROUND 
MICPC=MICPC+1 
<SUBTC! BR! SP3> 


Z 40$ ;IF YES-- BRANCH 
MICPC=MICPC+1 F: 
« JUMP! ZCOND! <4O$-INIT&3000#4> ! <4YC$-INIT877772>> 


BRWRTE IMM.S ; INDEX TQ NEXT BUFFER 
MICPC=MICPCH! 
«MOVE! WRTEBR! IMM! <5>> 


SP BR, ADD, SP14 ;UPDATE COPY OF POINTER 
MICPC=MICPC+1 
<MOVE ! SPX! BRIADD! SP14> 


BRURTE IMM,STC 
MICPC=MICPC41 
«MOVE! WRTEBR! IMM! <STC>> 


;ADDRESS OF WRAP AROUND POINT 


CMP BR, SP14 ; WRAPAROUND? 
MICPC=MICPC+1 

<SUBTC! BR! SP14> 

2 SOs ; IF YES---BRANCH 
MICPC=MICPC+1 

< JUMP! ZCOND! <SOS-INITS32000%#4> ! <SC$-INIT&777/2> > 


BRWRTE iim eo ;MASK FOR INTERUPT PENDING 


MICPC=MI 

(MOVE! WRTEBR! IMM! <20>> 

SP DP, AORB, SP1 ;UPDATE PORT STATUS WORD 
MICPC=MICPC+1 

<AOVE! SPX! OP! AORB! SP1> 

SPURTE BP <SELA!SP1O> READ LINE STATUS WORD 

BR FLUSH fF CLEAR ACTIVE SET---FLUSH 
STATE CVA 


ALWAYS REXIT 
.ENOC 

ALWAYS FLUSH 

MICPC=MICPC+1 

< JUMP! ALCOND! <FLUSH-INIT33000%4> ! <FLUSH-INIT$777/2) > 


-EN 
sen IMM, INTSTK :POINT TO START OF INTERRUPT STACK 


0171 


D14 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16:44 PAGE 9-39 PAGE: 0172 
DDCHGH.MAC  O6-DEC-76 11:34 STACK HANDLER 
(1) 001651 MICPC=MICPC+1 
uD) 015510 cd264e2 «MOVE! WRMEM! IMM! <INTSTK>> 
1951 o1ssie2 ALWAYS 20S 
(1) 001652 MICPC=MICPC+1 
Ch O1sSi2 114641 < JUMP! ALCOND! <20$-INIT&3000%4> ! <20$-INIT877772>> 
1962 015514 SOS:  BRWRTE IMM.RCLI SPOINT TO START OF RECEIVE QUEUE 
(1) 001652 MICPC=MICPC41 
(1) 015514 900424 (MOVE! WRTEBR! IMM! <RCL1>> 
1963 015516 Sp BR. SELB, SPi4 
(1) 001654 MICPC=MICPC+1 
1) 015516 063234 HOVE! SPX? BR! SELB! SP14> 
1954 o1ss20 ALWAYS 308 
(1) 001655 MICPC=MICPC 
(1) 015520 114646 SUMP? ALCOND! <30$-INITS3000%4 # <308- -INIT$77772)> 
1955 .DSABL LSB 
i956 o1ss22 NTHRES: LOMA _IMM,ST 
1) 001656 LorecenTepcs? 
(1) 001 IF IDN IMM, IMM 
ct) o1ss22 o10is2 «HOVE !LDMAR! IMM? <ST8377> 
(1) <MOVE! LDMAR! IMM! <ST>> 
(1) 000 .ENDC 
1957 015524 SPBR _ MEMX, SELB, SPO 
(i) 001657 MICPC=MICPC+1 
b) 015524 943620 <MOVE! SPBRX! MEMX! SELB! SPO> 
1958 15526 BRWRTE BR,ADD!SPO SHIFT LEFT 
(1) 001660 MICPC=MICPC+1 " 
1) 01sS26 60400 (MOVE! WRTEBR! BR! “ADD! SPO>> 
1959 015539 BRY OVRRUN 
1) O0is&1 MICPC=MICPC+1 
1) 015530 117174 < JUMP! BRYCON! <OVRRUN-INITS3000#4> ! <OVRRUN-INIT8777/2>> 
1969 oc1sS32 BRWRTE 
(1) 001662 MICPC=MICPC41 
(1) oiss32 o0040! (MOVE! WATEBR! IMM! <1>> 3 
1961 915534 ERRXX: 
1962 O1&534 NTRSO: LDMA IMM, <<RTHRS+3>> 
(1) OO1EE3 - MICPC=MICPC41 
(13 001 IF TON IMM, IMM + 
(1) O1S534 010177 <MOVE!LOMAR! IMM# < «RTHRS+3)8377>> 
(1) {MOVE !LDMAR! IMM! < <RTHRS+3> >> 
(13 900 . ENDC 
1963 015536 MEMINC _IMM,C 
(13 OO1ee4 MICPC=MICPC41 
‘l) «DISS3E OlE490 <MOVE! WRMEM! INCMAR! IMM! <Q>> 


gee = PROTOCOL IMPLEMENTATION MACY11 27(1006) I4-DEC-76 16:44 FAGE 8-40 PAGE: 9173 


O6-DEC-76 11:34 STACK HANDLER 
(1) 
1964 915540 MEM 
o1) 001665 MTCPCaMTEPOT 
(1) QISS¥O 62620 CMOVETWRMEN! BR! <SELB> > 
1965 o1ssy¥2 NTRSL: LOMA NXTS 
1) 001666 LpceMIOPcst 
1) .IF IDN IMM, IMM 
ib) o1ss42 01024] <HOVE!LDMAR! IMM! <NXTSP8377>> 
(1) <MOVE! LOMAR! IMM! <NXTSP> > 
iD) 900 .ENDC 
i © 
1966 = O1Ss44 LOMA §_ MEMX, SELB! SPX! SPO 
1} 001667 MICPC=MICPC+] 
(1) 001 F MX, IMM 
ib) “MOVE! LDMAR! IMM! <SELB!SPX!SP08%377>> 
(1) O1S544 953220 (MOVE! LDMAR! MEMX! <SELB!SPX!SPQ> > 
ch) 900 . ENDC 
\ 
1967 O1SS46 MEMINC IMM, 201 
(1) 091670 MICPC=MICPC+1 
tf) O1SS46 O1bED! <MOVE! WRMEM! INCMAR! IMM! <201>> 
1968 o1ssso MEM IMM, <<RTHRS> > 
(1) 05167: MICPC=MICPCS 
1) o1ssso 002574 (MOVE! WRMEM! IMM! < <RTHRS> >> 
1968 o1sss2 LOMA 
(1) 901672 NICPCEMIGPCST 
(1) 2 901 .IF ION IMM, IMM 
i) p1s5S2 010241 PPR ores, 
(1) <MOVE! LDMAR! IMM! <NXTSP> > 
1) 00 .ENDC 
1970 o1sss4 ren IMM, INTSTK ASSUME QUEUE WRAP AROUND 
(1) 001673 MICPC=MICPC41 
cL) O1ssS4 902642 <MOVE !WRMEM! IMM! <INTSTK>> 
1971 O1SSSE | BRWRTE IMM, <<MMEND-2> > 
1) 00:74 MICPC=MICPC41 
1) o1ssse +00°"76 (MOVE! WRTEBR! IMM! <<MMEND-2> >> 
SS ATePCeMIcres i 
J = 
G O1sS60 tia UCPC aCe 
1972 915562 2 NTRS2 SIT DID WRAP AROUND 
(1) OO1E76 MICPC=MICPC+1 : z 
ch) o1sse2 115701 < JUMP! ZCOND! <NTRS2-INIT&3000#4> ! <NTRS2-INIT$777/2>> 
42 
1974 15564 BRWRTE IMM,2 :OFFSET TC NEXT PAIR 
C13 901677 MICPC=MICPC+1 
1) O1sse4 Oooo4o2 (MOVE! WRTEBR! IMM! <2>> 


oMell — PROTOCOL IMPLEMENTATION MACY11 27(1006) I4-DEC-7E 16:44 PAGE 8-41 PAGE: 0174 
ODCHGH. M O6-DEC-76 11:34 STACK HANDLER 


{]) 
1975 c1SS66 MEM p!SPO sUPDATE QUEUE POINTER 
C15 001700 MICPC=MIEPR + 
ae 015566 962400 «MOVE! NAMEN! GR! “ADD! SPQ) > 
1976 915570 NTRS2: BRWRTE IMM,20 
1) 901701 MICPC=MICPC+1 
:13 915570 900420 (MOVE! WRTEBR! IMM! <20>> 
1977 915572 SPBR BR, AORB, SPI 
+ 901702 MICPC=MICP 
cH) 015572 06370! < MOVE! SPBRX! GR! AORB! SP1 > 
\ 
1978 15574 BRO TAL ;FLAGGED BY ERROR TYPE 
(1) 901703 MICPC=MICPC+41 
ih O1SS74 116334 < JUMP! BROCON! < TAB1-INIT&3000#4> ! < TAS1-INIT8777/2> > 
1979 15576 SNAK: LOMA IMM. ISP11 
(1) 001704 MICPC=MICPCH1 
(1) 9 IF ION IMM, Inn 
ib) OLSS76 O1Di71 «MOVE !LDMAR! Int! <1SP1183779 
Cf) <MOVE!LDMAR! IMM! <ISP11>> 
2) p00 . END 
1880 o15600 SP MEMX, SELB, SP11 
Ch) 001705 MICPC=MICPC+ 
iL) 915600 04323] (MOVE! SPX! MEMX! SELB!SP11> 
1981 o15602 SP BR, INCA, SP11 INCREMENT MSG EXPECTED 
il) 901706 MICPC=MICPC+1 
dy) O1sé02 963071 (MOVE! SPX!BR! INCA!SP11> 
1982 15604 SNAK1: BRWRTE IMM.1 sUNNUMB PENING BIT TO BR 
(1) 001707 MICPC=MICPC41 
1) 015604 oco4o: «MOVE! WRTEBR! IMM! < 1>> 
(1) 
1983 c1S606 SNAK2: SP BR, AORB, SP10 ;UPDATE LINE STATUS WORD 
(1) 001715 MICPC=MICPC+1 
h) 015606 063310 CMOVE! SPX! BR! AORS! SP10> 
\ 
1984 O1S610 ALWAYS FLUSH 
1) 001711 MICPC=MICPC+1 
(1) Q1S610 104426 < JUMP! ALCOND! <FLUSH-INIT$3000%4> !<FLUSH-INIT8777/2>> 
(ii 
1985 : 
1986 C1SE12 EMTRIG: BRWRTE Int 24 
Gi 001712 MICPC=MICPC41 
(1) 15612 900424 (MOVE! WRTEBR! IMM! <24>> 
,a/ 
1967 O1S614 OUTPUT BR. <SELB!OBAl> 
(1) 001713 MICPC=MICPE+1 
(1) O1S6i4 062226 (MOVE !WROUT! BR! <SELB!0BA1> > 
1986 i516 BRWRTE IMM, 0 


OC1714 MICPC=MICPCS1 
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MACY11 27(1006) 14-DEC-76 16:44 PAGE 
STACK HANDLER 


EME: 


EMI: 


TABUPD: 


(MOVE! WRTEBR! IMM! <O>> 


QUT T BR «SELB! OBA2> 
MICPC=MICPC+1 
(MOVE! WROUT! BR! <SELB! OBA) > 


SP S,BM873,SPO0 
ay Recor ABRe 
<MOVE! SPBRX! IBUS! BM873!SPO> 


OUTPUT BR,SELB!OUTDAL 
MICPC=MICPC+1 
(MOVE! WROUT! BR! <SELB! OUTDAL>> 


BRWRTE IMM, 366 
NICPC=MI Pct] 
«MOVE! EBR! IMM! <366>> 


OUTPUT BR, SELB! OUTDAZ 
MICPC=MICPC+1 
(MOVE! WROUT! BR! «SELB! OUTDA2> > 


BRWRTE IMM,21 
MICPC=MICPC+1 
(MOVE! WRTEBR! IMM! <21>> 


OUT BR, «SELB! 0BR> 
MICPC=MICPC+1 
«MOVE ! WROUTX! BR! «SELB! 08R> > 


BR, «SELB! ONPR> 


oy tpc= CPC+1 
' a lenecen meets 


«MOVE! 
BRWRTE IBUS,NPR 


MICPC=MICPC+I . 
(MOVE! WRTEBR! IBUS! <NPR> > 


BRO CKTIME 
MICPC=MICPC+1 


8-42 


;READ 8M872 ADDRESS--- 


;SET UP LOW BYTE OF ADCRESS 


;HIGH BYTE BASE FOR ROM BOOT 


;MASK FOR TIMER AND ALSC TO START NPS 


;REAC NPR CONTROL 


<« JUMP! BROCON! <CKTIME-INIT&300G#4> ! <CKTIME-INITS7772>> 


MEMADR RM 
NICPC=NICPC+1 
(MOVE! WRMEM! <RM1-INIT877772> > 


 IFF 
(MOVE !WRMEM! ! <RM1-INIT877772>> 
ENDC 


ALWAYS ACLOW 
MICPC=MIC 


;IF NPR CONE 


PC+] 
“JUMP! ALCOND! < ACLOW-INIT3300084> ! <ACLOW-INIT$777/2> 


SPBR _IBUS,RCVCON, SPO 
MICPC=MICPC+1 
(MOVE! SPBRX! IBUS!RCVCON! SPO> 


;READ RECEIVER CONTROL SES 
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MACY11 27(1006) I4-DEC-7& 16:44 PAGE 9-43 PAGE: 
STACK HANDLER 
BRWRTE BR, ADD! SPO ;SHiFT LEFT 


TABI: 


MICPC=MICPC+41 
(MOVE! WRTEBR! BR! <ADD!SPO> > 


BR? ;RECEIVE ACTIVE--IOLE 
MICPC=MICPC+1 
«JUMP! BRP CON! « IDLE- ~INIT&3000#4> ! < IOLE-INIT8&77772>> 


LOMA MG1O 
Mi npcenTopchy 


.IF IDN IMM, IMM 
«HOVE! LOMAR! IMM! <ING1O8377> 
<MOVE!LDMAR! IMM! <IMG1O>> 
.ENDC 


BRWRTE IMM, ? 
MICPC=MICPC41 
(MOVE! WRTEBR! IMM! <2>> 


nics BR, AANDB! SP10 sSAVE BIT 1 OF SP10 
cPC=MICPC+1 
«MOVE! WRMEM! INCMAR! BR! <AANDB!SP10>> 


MEMINC BR,SELA!SP11 :SAYE SPL! 
MICPC=MICPC41 
HOVE IAMEN? INCMAR! BR!<SELA!SP1I>> 


MEMINC BR,SELA!SP12 :SAVE SPi2 
NICPC=NICPCH 
«MOVE ! NAMEN! INCMAR!BR! <SELA!SP12)> 


MEMINC ®R,SELA!SP14 :SAVE SP14 
MICPC=MICPC+1 
CHOVETWEMEN! INCMAR!BR! <SELA!SP14> > 


MEMINC BR,SELA!SP16 ;SAVE SP1é 
MICPC=MICPC+1 
<MOVE! WRMEM! INCMAR! BR! <SELA!SP16>> 
MEMINC BR,SELA!SP17 :SAVE SP1? 
MICPC=MICPC+1 
<MOVE ! WRMEM! INCMAR! BR! <SELA!SP!7>> 

NOW POINTS TO BASE 
STATE RB2 :D0 NOT inne BR UNTIL RBC 
MICPC=MICPC+1 


«MOVE! WATEBR! IMM! <RB2-INITS8777/2>> 
LDMA «IMM, TABST ;POINT TO TABLE UPDATE STATE 
MICPC=MICPC$1 


F IDN IMM, IMM 
«MOVE !LOMAR! IMM! < TABSTS377>> 
«MOVE! LDMAR! IMM! < TABST>> 

ENDC 


Si7é 


OMC11 COCMP PROTOCOL IMPLEMENTATION MACYL1 27(1906) I4-DEC-76 16:44 FAGE 8-44 PARSE: 0177 
COCHGH. MAC O6-DEC-76 11:34 STACK HANDLER 


1 
esis ous7oe PSTATE TBUL -NEW PORT STATE ADDRESS 
ct} 6015702 MEM IMM, << TBUL-INIT8777/2> > 
(2) 001746 MICPC=MICPC+1 
3) 01S702 902774 CHOVETWAMEN! IMM! << TBUL- INIT8777/2> >> 
Lé, 
2016 015704 SP IMM, 4, SP4 s INITIALIZE COUNT 
1) 901747 MICPC=MICPC41 
1) 015704 o03004 <MOVE! SPX! IMM! 4!SP4> 
2517 sNOTE: FIRST & RAM LOCATIONS ARE NOT WRITTEN 
3018 :T0 CORE TABLE. 
2015 015706 LOMA —_—IMM, BASE 
1) 001750 MICPCEMICPCSi 
cf) 8: IF I , itt 
oe 015706 9190017 «HOVE HLOMAR! IMM! <BASE8377> > 
(2) ‘ 
(1) (MOVE! LDMAR! IMM! <BASE> > 
1) ooc -ENDC 
2020 15710 ALWAYS RBO 
th) 001751 MICPC=MICPC+1 
i) o:s7i0 1o444e <JUM® : ALCOND! <RBO-INIT83000#4> ! <RBO-INIT$777/2>> 
2031 915712 EC2:  BRWRTE IMM.2 INCREMENT COUNT/TEST 
C1) 001752 MICPC=MICPC41 
ib o1s712 agdude (MOVE! WRTEBR! IMM! <2>> 
2922 015714 sp BR, ADD, SP4 
(1) 901753 MICPC=MICPC+1 
ae 915714 963004 CHOVE? SPX! BR#ADD! SP4> 
eS) 
2023 O1S71E sp IBUS, I0BA1 SPO :POINT TO NEXT ADDRESS 
(1) 001754 MICPC=MICPC+1 
iL) 015716 923140 «MOVE! SPX! IBUS! IOBAL!SPO> 
3 
2024 015720 UTPUT BR ADD! OBAL 
CT) 001755 MTCPCAMTE +1 
(dh) 015720 O&2006 <MOVE ! ROUT? BR! «ADD! OBAL> » 
2025 015722 sp IBUS, 10BA2, SPO 
(1) 001756 MICPC=MICPC+1 
1) ois722 023160 «MOVE ! SPX! BUS! IOBA2! SPO> 
3 
2026 o15724 OUTPUT BR ac OBR 
(1) 001757 MICPC=MICPC+ 
ch) C1s724 962157 <MOVE ! WROUTIBR! <AC! OBA2>> 
, 
2027 015726 C TABIXT 
(1) 001760 MICPC=MICPC+1 
1) 015726 105366 < JUMP! CCOND! < TABMXT-INITS3000%4> ! < TABMXT-INITS?777-2> > 
; 
2928 015730 ECx: BRURTE BR ,SELA!SPL ;READ PORT STATUS 
$4 901761 MICPC=MICPC+ 
(1) 018730 O60691 (MOVE !WRTEBR! BR! <SELA!SPL> > 


DMC11 DOCMP PROTOCOL IMPLEMENTATION 
O6-DEC-76 11:34 


OOCHGH. 


fu 

oO 
Sete ott teteets -f 
eee DD 
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fu 
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eed ¢ 8 ee eed Uw we we 
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7 


++ 0 +b fo o-oo bee CTUTUP 5 bb - b 
ed 0 eed 0 


MAC 


015732 
015732 


015734 
015734 
015736 
015736 
015740 
015740 
015742 
C1S74e 


0iS744 
015744 


015746 
015746 
015750 


C1s750 


015752 
0157Se2 


015752 
015754 
C15754 
015756 
O1S75é 
015760 
015760 


001764 
117371 


001765 
056222 


001766 
056223 
0c} 


001767 
123200 


o0c 
ea 
104622 
001771 
001 
015210 


00 


Bosses 


MACY11 27(1006) 14-DEC-76 16:44 PAGE 8-45 
STACK HANDLER 


1c$: 


208: 


308: 


BRO 30$ ;INIT MODE, WRITE OUT 200 BYTES 
MICPC=MICPC+1 
CTUMP! BROCON! ¢ 308-INIT83000*4 ! «30$-INIT8&77772>> 
;OTHERWISE ONLY WRITE CUT ERROR C 
BRWRTE BR!LDMAR, SELA!SP4 ;READ COUNTER 
MICPC=MICPC+1 
(MOVE! WRTEBR! BR!LDMAR! <SELA!SP4> > 
BRY <0$ ;ALL CONE 
MICPC=NICPC+1 
< JUMP! BRYCON! <20$-INITS83000#4> ! «20$-INITS77772>> 
aN —_—e , SELB! OUTDAL ;STORE CCUNTS OF ERRORS 
«MOVE! WROUT ! MEMX! INCMAR! <SELB! OUTDA1> > 
OUTPUT MEMX! INCMAR, SELB! OUTDAe 
MICPC=MICPC+1 
«MOVE! WROUT! MEMX! INCMAR! <SELB!OUTDA2>» 


.IF NOF SLOW 
IBUS, NPR, SPO 
MICPC=MICPC+h 


«MOVE! SPX! IBUS! NPR! SPO> 


ALWAYS ah 
MICPC=MICPC 
JUMP? ALCOND! <RKB-INITS3000#4 ! «RK8-INIT8777 72> > 


~ 


LDMA 
LPCeNTGPCHL 
IF ION 
«HOVE! LOMAR! IMM! < TABST&377>> 
<MOVE!LDMAR! IMM! <TABST>> 
.ENDC 


PSTATE 
nicecs IMM Mt (CTD INE TET77 70)? 
posmrcect tum! < <I3-INIT8?777/2>»> 


nICPCEMICECH 
«JUMP! ALCOND! <RMI- ~INIT83000#4> !<RM1-INIT8777/2>> 


BRWRTE BR!LOMAR, SELA! SP4 ;READ COUNTER 
MICPC=MICPC+1 

«MOVE! WRTEBR! BR! LDMAR! <SELA!SP4> > 

BR? 20 ;ALL DONE 
MICPC=MICPC+1 


$ 
<« JUMP! BR7CON! « 20$-INITS30CO0#4> !<20$-INITS777E>> 


GUNTERS 


3178 


Reel og PROTOCOL es ATION MACY11 27(1006) 
O0CH: 1:34 STACK HANDLER 


14-DEC-76 16:44 PAGE 8-46 PRGE: 


Ac  O6-DEC-76 1 

2044 015762 ALWAYS 10 KEEP GOING 

(1) 001776 MICPC=MICPC+1 

ae o1s762 114765 CSGMP TAL COND! < 10$-INIT83000%4 ! (10$-INIT&8777/2>> 
2045 015764 $ZERO 

(L) 901777 MICPC=MICPC+1 

1) 015764 990000 ooooda 
2046 ; 
2047 900001 " END 


. ABS. 015766 900 

ERRORS DETECTED: 0 

DEFAULT GLOBALS GENERATED: 0 
DDCMP/CRF /DS: CRF +DMCHGH, HILOW,, DDCHGH 

RUN-TIME: 16 31 .1 SECONDS 


RUN-TIME RATIO: iagraees. 8 
CORE USED: 7K (13 PAGES) 


23 00260 


1634 015766 012737 0900 
1635 015774 O12737 0161 


16 
1637 O16C02 104412 


001226 TST1: 
O0leis 


TeeT OF aR RicdT SHIFT TEST | 4HRHXXHRHALA HALE SARELLE TREE 
:¥VERIFY THAT A DEST OF BR RSH A he ee MICRO-INSTRUCTION 


s¥SHIETS THE RESULTING BR DATA RI 
5 SESE AE HEAR AR ME SEE HEHE RA HEH ARR EEE ER EEE EERE EERE 


Mov #1, TSTNO 


MOV #TST2, NEXT 
;R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR !MASTER CLEAR DMC11 


DZOMH 


OZOMH. P11 09-DEC- 


MACY11 27(1006) 
76 14 


001404 


052525 
000904 


B1600) 6 3701 


ooo0cs 


ttt tet Sh tts Staph p eee S pats 
Ren BeReee ce oR ERNST 


ra 
o 
r 
<= 


ooco0s 


OO 012737 
18 018737 
081430 
005000 
012702 
pier 
Bee! 1 
05271 


eae 
Hee 
1090000 


000001 
0020) 
00 


006 
20000 
ooc004 


YQOOOOOOVO OOO O00000O0 200 


006102 
e209 001357 


Bie 


001366 







a 76 16:32 _ PAGE 35 


L14 


PAGE: 


GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


1$: 


2s: 


TSTe: 


1$: 
23: 
38: 


4§: 


MOV DaCSR »R1 


MOV #52525, RS 
MOV RS,4(RL) 


RS 
S(R1),R4 
RS,R4Y 


RL = sate, BASE ADDRESS 
START WITH 125 

:PORTY*125 

NeXT WORD, 1S INSTRUCTION, ROMCLK PC=S304 
iNEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

SH+BR, SHI t 

NeXT ORD IS INSTRUCTION, ROMCLK PC=5304 
in = “EXPECTED” 

:D1D B “BR SHIFT RIGHT ONCE? 

iBR Bont SHIFT ERROR 
iL. ef 1§ INSTRUCTION, RO ROMCLK Pc=5304 
NAT tee IS INSTRUCTION, ARORCLI PC=5304 
*RS = “EXPECTED” 
;R4 = “FOUND” 

DID BR, IFT RIGHT? 


‘BR RIGHT SHIFT ERROR 
SCOPE THIS TEST 


SSTOP CRAM WRITE/READ TEST TEST © RHHHRXLAERRRSAALAELELALLE EE 
TES 


P CRAM WRITE/RE 
j#EL08T Al 


1 THROUGH EACH CRAM LOCATION 


s RERAARERRRA AAA ERA RAKE EL EL ALAS LAA RA LA LALLA LEL ALLL AA LLAALAATE 


MOV bist hex 


Bit sgrTis, stan 


CLR RO 
MOV #1,Re 


MOV #B1T10, (R1) 
MOV RO,4(R1) 
R2’6(R1) 
BIS #B{T13, (RL) 
MOV 4(R1),R4 


CMP Re,R4 
BEQ 4$ 
HLT 
SCOP 1 

LC 

ROL Re 
BNE es 


;R1 corrals 8 DMC1i ACDRESS 
iS ? 


;RO = CRAM AD 
Re = WRITE DATA 
HRT EOP tafe 
: LOAD ELE WITH WRI M. DATA 
;WRITE SEL6 snTO CRA 
sREAD GRAN IN TO FOUND" 
31 TA CORRECT? 
BR IF OK 
;CLEAR CARRY 


:SHIFT WRITE DAT 
BR IF NOT DONE THIS ADDRESS 


0180 


CO anna cape --<e=e oo = 


MACY11 27(1006) 
O9-DEC-76 14 


DZDMH 
DZOMH.P11 
1694 Ql 
lees Gigets 
1696 
le? Olesie 
ig98 
i699 
1700 
8 
1308 
1704 
1705 
1708 
1707 016214 
1708 Ol6e2e2 
1709 016230 
1710 
1711 016236 
17le 016240 
1713 016246 
1714 016250 
1715 Ol62Se 
1716 0Oi62S6 
1717 016256 
1718 016260 
1719 016264 
1720 016270 
1721 016274 
1722 016300 
He ee 
1725 01631 
ye Be 
17 peste 
1729 016320 
1730 016322 
1731 016324 
1732 016326 
1733 016332 
1734 016334 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
174e 
1743 
1744 
1745 016336 
1746 O16344 
1747 016352 
1748 
1749 016260 


es 


Heras 
18737 


104412 


14-DEC-76 16:32 PAGE 36 
:$9 CRAM WRITE/READ TESTS 


002000 


000003 
016336 
016260 


002000 


00004 
16516 
016374 


001226 
001216 
001220 


001366 


S$: 


TST3: 


4§: 


S$: 


TST4: 


M14 


PAGE: 181 


TO_NEXT CRAM ADDRESS 
: DONE 4 y 


:BR IF 
; SCOPE THIS TEST 


gM 42000, RO 
BNE 1$ 
SCOPE 


5 RERRRRAAERLERRERRRREARELRER TEST QO RRRRRRAREA LEAR EELS EEELES 
; #10P CRAM WRITE/READ TEST 


gHeLOR A O THROUGH EACH CRAM LOCATION 
s RRRARRKRKAAA RASA AA AAA AAA RAAAAARLRAA REALE RAE SEARLS ALARA ELLE 

; TEST 3 

Mov #3, TSTNO 

MOV #TS$T4, NEXT 

on #38, LOCK :R Tal pric ADDRESS 

MSTCLR “ist R R CLEAR” DR 

BIT #BIT15, STAT HAVE CRAM? 

BEQ S$ SCP OCT IF NO CRAM 

CLR RO *RO = CRAM ADDRESS 

MOV #1,R2 Re = WRITE DATA 

COM R2 ;MAKE IT A FLOATING ZERO 

MOV #81T10, (RL) SET ROMO 

MOV RO,4(R1) ;WRITE ADDRESS TO SE 

MOV Re 6(R1) ‘LOAD SEL6 WITH WRITE DATA 

BIS #81713, (RL) “WRITE SEL6 INTO CR 

MOV 4(R1),R4 *READ CRAM INTO “FOUND” 

CMP R2,R4 i1S bar CORRECT? 

are 4§ : 

HL 1 : ERROR 

SCOP1 

COM Re zBAGK TO TO Eb ONE 

CLC 

ROL Re : SHIFT ORT TE DATA 

BNE 25 ?BR IF NOT DONE THIS ADDRESS 

INC RO :BUMP TO NEXT CRAM ADDRESS 

CMP #2000, RO >DONE YET? 

BNE 1$ -BR IF NO 

SCOPE :SCOPE THIS TEST 


i TTOP CRA! DUM. AOORESSING T TEST 4 SHRRSRRRERALEARARLE RSE EEE RE 


/SRITE URI TE EACH SS into. TTEELF ReaD EACH 


RIFY CORREC 
 eeoeocatuncesseneuectasscecsasesasseseauseubussnssssaasssasese 


fov st. NEXT 


MOV #13, LOCK 
MSTCLR 


3R1 CONTAINS BASE OMC11 ADDRESS 
MASTER CLEAR DMC11 


N14 


DZDMH MACYL1 27(1006) 14-DEC-76 16:32 PAGE 37 PAGE: 182 
DZ2DMH.P11  09-DEC-7& 14:59 CRAM WRITE/READ TESTS 

1750 016368 032737 100000 001366 BIT agIT1S, STAT! DOGS reer ee VE CRAM? 

toed Bibse3 BoeaoA aL i 

1753 O16374 919002 18: mov weit ani WE, Re FOR TYPEQUT 

He fires font ae SR rg ee 

15e8 pt eats pe00et 0200 BIS mets (R1) ees 

1758 016416 005061 O00006 CLR Sone 

1759 016422 OL 000006 MOV BRL) RM ack OWN ADDRESS 

1760 016426 CMP C84 

1761 016430 01401 BEQ 2s . 

is pips ips ™ et 1 RO i oh oa 

1765 1e440 022700 002000 CMP #2000, RO cHRETING YET? 

1585 Bt 446 BNE START AT ADDRESS 0 

1768 O164S50 012737 016456 001220 _ nov 438 LOCK ;NEW SCOPI nnd 

HE A ee ee ep 

1 0i6470 036104 900006 MOV etal) ‘READ CRAM INTO “ BUND” 

1773 O16474 20004 CMP :IS DATA CORRECT? 

1774 016476 001401 BEQ at :BR IF YES 

1775 016500 104002 ;DUAL ADDRESSING ERROR 

1776 016502 104401 4g: SCOP1 “LOOP TO 3$ IF =1 

177 DIESOE Bee700 poz000 ite ROO, RO BONE WRITING YEree 

1779 016512 001361 BNE ls ?BR IF NO 

1780 016514 104400 S$: SCOPE :SCOPE THIS TEST 

1782 

178: snuagepsauensseensqeunsseus TEST S SeeeREREARAAAAAERARSE REESE 

1785 ;*THIS TEST BRIT CRAM WITH THE CROM MICRO-CODE MAP 

H LG s itera oes 

vee ; HEBER HHEH HHH AHHH EHH AHH HHH HAH HE HEEB A HEEB BE EHaes - 

1790 ; TESTS 

, ae eee eee ee 

1792 016516 012737 OO000S 001226 TSTS: Mov 

irst bleese Glerar Sleeee SGLaS mY EOS 

HP o1es0 i902 eran MoKA eRe BRE PH OES. 

1797 4 ooo00 TAT 1S IT ROM 

1798 Bieecs thi . esis Q aT, G0Ns : rat Teer f BRON . 

{goo Olese4 009737 FSR PC URON SURTTE. CRAM UITH NAP ie 

1801 biesed Bie70G BT Tobe HOV #ROMMAP, RO j SOF THARE POINTER TO CROM DUPLICATE 


iB O16 1 OE 1$ V RS 4(R1) iMate T CROM ADDRESS TO SELY 
1804 Leere ot at ae , Nov Re tT iG (RL) wet ER SRO 
1805 0165 11 ),RS ‘Bur “EXPECTED” IN RS 


new GuaeaaSes =—scee 


B15 


DZDMH jnecyas 27(1008) 14-DEC-76 16:32 PAGE 38 PAGE: 
D2DMH.P 09-DEC-76 14:59 CRAM WRITE/READ TESTS 

1806 O16600 016104 oj0006 MOV 6(R1),R4 :PUT “FOUND” IN R4 

1807 O16604 O20S504 CMP RS,R4 :COMPARE HARD ROM TO SOFT DUPLICATE 

1808 016606 001401 BEQ 2$ iBR IF 

18039 016610 104003 HLT 3 :CRAM READ ERROR! 

i819 O16612 005011 2s: CLR (R1) :CLR BITIO 

1811 016614 005061 oo0006 CLR 6(R1) CLEAR SEL6 

1812 016620 104401 SCOP1 ;LOOP 70 1$ IF SWO9=1 

1813 Olb62e2 O0S202 INC R2 ; INC 0 NEXT CROM ADDRESS 

1814 016624 005720 TST (RO)+ :P BY 2 

1815 016626 Oe2702 o02000 CMP #2000, Re ‘DONE 1K YET? 

1816 016632 001355 BNE 1$ :BR IF NO 

1817 016634 104400 3: SCOPE :SCOPE THIS TEST 

1819 

1820 Rg atta ie TEST & 4XXHHRERLRE ELH ERERALL SESE SS 

1821 :*I0P MAIN MEMORY 

1822 gurLoat Al SHROUGH ALL MAIN MEMORY LOCATIONS 

1853 © SLE KAKALAAL ALLAAH AAAS LASAA RAL KALLA LA LALA LARA SEA LALA LALA SEF ERE 

1825 ; TEST 6 

ie ——“‘“—‘“‘“<“‘<‘<(_a ‘al cnctmeer create 

1827 016636 012737 O00006 o01226 TST&: MOV STNO 

1828 O16644 012737 017024 O01216 MOV seat NEXT 

1829 016652 012737 016702 001220 MOV #655, LOCK 

1830 ;R1 CONTAINS BASE DMC11 ADDRESS 

1831 916660 104412 MSTCLR ; CLEAR DMC1i 

1832 O16662 032737 100000 001366 BIT #BITIS,STAT1 | ;IS THIS AN IOP? 

1832 016670 o01454 BEQ 2s sSKTP EST 

1834 016672 005037 034704 CLR FLAG ART WITH ADDRESS O 

1635 016676 012700 op0001 1S: MOV #1.R0 :START WITH BIT O 

i836 016702 042737 000377 016734 65$: Bic #377 , 665 “CLEAR ADDRESS FIELD OF INSTRUCTION 

1837 016710 042737 000003 016740 BIC #3, 68S ; CLEAR abbRese FIELD OF INSTRUCTION 

1838 016716 153737 034704 016734 BISB FLAG, 66S To I NST RUCTION 

1839 016724 153737 034705 016740 BISB _ FLAG+1,68$ ; ADD ADDRESS TO INSTRUCTION 

1840 016732 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

1841 016734 010000 66$: 010000 ‘LOAD MAR LO WITH ADDRESS IN FL 

1842 016736 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

1843 016740 do4000 68$:  oo4000 :LOAD MAR HI 

1844 016742 010061 oococY MOV RO,4(R1) sHRITE PATTERN IN PORTY 

1845S 016746 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

1846 016750 122500 122500 :MOVE PORTY TO 

1847 016752 104414 ROMCLK =NEXT WORD = INSTRUCTION, ROMCLK PC=5304 

1848 016754 O40620 O40620 i MOVE MEMORY TO BR 

1849 016756 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

1850 016760 O612 61225 *MOVE BR TO PORTS 

1851 016762 010005 OV RO,RS ;PUT “EXPECTED” IN RS 

1852 0616764 116104 oo0005 MOVB = S(R1), R4 “PUT "FOUND" IN RY 

1853 016770 120504 CMPB —s RS. R4 DATA CORRECT? 

1854 016772 001401 BEQ 67$ :BR IF YES 

185S 016774 104010 HLT 10 :DATA ERROR 

1856 016776 104401 67$: SCOPI ; SWO9=1 

1857 017000 000241 CLC CLEAR CARRY 

1858 017002 106100 ROLB RO ‘SHIFT BIT IN RO 

1859 017004 001336 BNE 65$ ; DON NE IF RO=0 

1269 617006 005237 034704 INC 


FLAG ;NEXT ADDRESS 
1861 O0170le Oee737 O02000 934704 CMP #2000, FLAG LAST ADDRESS? 


C15 


OZ2DMH  MACYLI 27(1006) yldcdec- -76 16:32 oP Ace 39 PAGE: 194 
OZDMH.P11 O9-DEC-7& 14:59 IOP TEST 

1862 017020 001326 BNE 1$ :BR IF NO 

1863 017022 194400 2S: SCOPE :SCOPE THIS TEST 

1865 

igés SS ae TEST 7 4HRHXSE HALLE S HALLE SELLER ELE 

1867 #I0P MAIN MEMORY T 

1868 areal A G THROUGH ALL MAIN MEMORY LOCATIONS 

1933 © RERRREAARRALLEA ALEK ELLA ALAA LAA ALAA ALA LALA LALA LALA RSA LAL AFZAL 

1871 ; TEST 7 

1873 017024 012737 000007 oO01226 TST7: MOV STNO 

1874 017032 012737 017216 O01216 MOV araTio NEXT 

1875 017040 012737 017072 O01220 MOV #65$ , LOCK 

1876 ;R1 CONTAINS BASE DMC11 ADDRESS 

1877 017046 104412 MSTCLR :MASTER CLEAR DMC11 

1878 017050 032737 100000 001266 BIT #81T15,STATI 1S T ? 

1879 017056 001456 BEQ 2$ ‘SKIP TEST IF NO 

1880 017060 005037 034704 CLR FLAG “START WITH ADDRESS 0 

1881 017064 012700 o00001 1$: MOV #1,RO s START WITH BIT O 

1882 017070 005100 64S: COM RO : CHANGE 19 FLOATING 0 

1883 017072 042737 000377 017124 65S: BIC 4377 66$ CLEAR ADDRESS FIELD OF INSTRUCTION 

1884 017100 042737 900003 017130 BIC 68S : CLEAR abbRese FIELD OF INSTRUCTION 

1885 017106 153737 034704 017124 BISB £348 66 - ADD ADDRESS TO INSTRUCTION 

1886 017114 153737 O3470S 9017130 BISB  FLAG+1,68$ ;ADD ADDRESS TO INSTRUCT 

1887 017122. 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

1888 017124 O10000 66S: 010000 [LOAD MAR LO WITH ADDRESS IN FLAG 

1889 017126 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

1890 017130 ooO4O00 68S: 004000 ‘LOAD MAR HI 

1891 017132 010061 ooo004 MOV RO,4<R1) “WRITE PATTERN IN P 

1892 017136 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

1893 017140 122500 122500 : MOVE PORT4Y TO MEMORY 

1894 017142 104414 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

189S 017144 O40620 040620 “MOVE MEMORY T 

189% 017146 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

1897 017150 O612e5 61225 “MOVE BR 

1898 017152 010005 MOV RO,RS "PUT “EXPECTED” IN RS 

1899 017154 116104 onpD00s MOVB  S(R1),R4 PUT “FOUND” IN RY 

1900 017160 120504 CMPB ~—s- RS, R4 :DATA CORRECT? 

1901 G1716e O001491 BEQ $ :BR I 

1902 017164 104010 HLT sDATA ERROR 

1903 017166 104401 67S: ScOP1 : SWO9=1 

1904 017170 005100 COM RO ‘CHANGE. T0 FLOATING i 

1905 017172 900241 CLC -CL 

19068 017174 106100 ROLB RO ‘SHIFT BIT IN RO 

1907 017176 001334 BNE 64S ; DON E IF RO=0 

1908 017200 005237 034704 INC FLAG *NEXT ADDRESS 

1909 017204 022737 O02000 034704 CMP #2000, FLAG ;LAST ADDRESS? 

1910 O17el2 001324 BNE g NO 

1311 017214 104400 2s: SCOPE SCOPE THIS TEST 

1913, 

1914 5 PERK RRAAERERRAEEEEREE EERE TEST 40 RELLSHRLELEAAESAAERSRELAREE 

1915 :#I0P MAIN MEMORY DUAL ADDRESSING TEST 

1916 :*LOAD EACH MEMORY LOCATION WITH ITS OWN ADDRESS 

1917 :*READ BACK EACH LOCATION TO YERIFY CORRECT ADDRESSING 


ZOMH 


D 
OZOMH.Pil 


17216 
Bt cent 
7232 


7242 
250 


22322 
tJ 


32 
= 


017472 


MACY11 27(1006) 
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012737 
012737 
012737 


104412 


001401 


14-DEC-76 16:32 PAGE 4C 
:§9 IOP 


034705 


oooco4 


oocoos 


024704 
002050 


034705 


ococos 


901226 


001366 


017314 


0 
017320 


034704 
001220 


017444 


017450 


TEST 


TST10: 


1$: 


2s: 


3$: 


4$: 


8s: 


. 


D1S 


PAGE: 


ff RRRARRARERE RAE RA ERAS RRAE LALA ALAA AAA RARER AA LALA LSA AL LAS EL SLA LS 


; TEST 10 

Mov #10, TSTNO 
MOV #TSt11,NEXT 
MOV #1$, LOCK 
MSTCLR 

BIT #BIT1S,STAT1 
BEQ 3g 

CLR FLAG 

MOV FLAG, Re 
BIC #377, 2$ 
BIC #3,7$ 
BISB FLAG, 2$ 
BISB  —«- FLAG+1,7$ 
ROMCLK 

010000 

ROMCLK 

094000 

OV R2,4(R1) 
ROMCLK 

122500 

ROMCLK 

040620 

ROMCLK 

61225 

MOV R2,RS 
MOV S(R1),R4 
CMP RS.R4 
BEQ 3 
HLT 10 
SCOP1 

INC FLAG 
CMP #2000, FLAG 
BNE 
MOV #43, LOCK 
CLR 
MOV FLAG, R2 
BIC 4377, S$ 
BIC a$ 
BISB Peng: c$ 
BISB =FLAG+1,8$ 
ROMCLK 
010000 
ROMCLK 

04000 
ROMCLK 
040620 
ROMCLK 
61225 
MOV R2,.RS 
MOVB 5S(R1),R4 
CMPB sé, R4 
BEQ 


;R1 CONTAINS eo ADORESS 


IN 
;CLEAR ADDRESS FIELD OF INSTRUCTION 
: CLEAR POOREST FiELe OF INSTRUCTION 
ADD ADDRESS INSTRUCTION 


ADD _ADDRESS TO INSTRUCTION 

i! ea INSTRUCTION, ROMCLK PC=S304 
NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
;LOAD MAR HI 

;NEXT WORD IS Sa om, ROMCLK PC=S304 
s HOVE PORT4 TO MEMORY 

T WORD IS INSTRUCTION, ROMCLK PC=5304 

HOVE MEMORY TO THE BR 
{NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
;MOV BR TO PORTS 
; PUT “EXPECTED™ IN RS 
:PUT “F IN R 
;DATA li 
DATA ERROR 

WOog= 


: NEX T ADDRESS 
“LAST ADDRESS 
BR IF NC. 
RESTART in 0 


tek neon 
AR ADDRESS FIELD OF INSTRUCTION 

oe ADDRESS FIELD OF INSTRUCTION 

ADD ADDRESS 18 INSTRUCT ime 

;ADD_ADDRESS TO INSTRUCTION 

NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 


LOAD THE LO 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
NEXT WORD a eT TION, ROMCLK PC=S304 
:MOVE MEMORY 

;NEX XT_WORD Is” INSTRUCTION, ROMCLK PC=S304 
‘PUT “EXPECTED” IN RS 

:PUT “FOUND” IN RY 

DATA CORRECT? 

:BR IF YES 


918s 


OZOMH  MACY11 27(1006) 
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017630 


09-DEC- 


104010 
104401 
apse 7 


104400 


012737 
012737 


104412 


O4414 
Taoed 
04414 


104400 
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034704 
002000 


ooocc4 


002009 


90c004 


cd2090 


034704 


6$: 


9$: 


TSTli: 


1$: 


2S: 


3$: 


4$; 


E1S 


PAGE: 
HLT 19 ADDRESSING ERROR 
SCOP1 
INC FLAG 7 hooress 
#2000,FLAG she IT Ly LAST 
BNE 2 ‘BR IF 
SCOPE : SCOPE SAIS TEST 


sie mR ieet TEST Ll 4ERRSLRRAEASREASELESE SESE ES 
°% 

: PERFORM DUAL ROORS S51 TEST 

sHUSING MAR AUTO-INC FEATURE 

nee antenna nesbasnansensanzanecsseuanenensnenesnsdsquennensescens 


; TEST ll 


MOV #11, TSTNO 
MOV #TSt12, NEXT 


:R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR :MASTER CLEAR DMC11 
WBITIS,STATL 31S THI ? 
BEQ 4g :SKIP TEST If NO 
CLR R2 jSTART MIT WITH A ZERO 
ROMCLK iNEXT WURD 18 Pe ROMCLK P¢=5394 
010000 AD MAR W 
MOV R2,4(R1) :WRITE DATA TO PORT 
ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
136500 :MEM*PORTY, AUTO-INC MAR 
INC R2 : INCREMENT 
CHP #2000, R2 sDONE | YET? 
atk K = ‘Resta oie INSTRU CTION, ROMCLK PC=5304 
L= 
aatatat iNET HORO TF, A ZERO 
ROMCLK S INSTRUCTION, ROMCLK PC=S304 
oss2e4 Pe EHR 8 pon 74 
MOV R2,RS :PUT “EXPECTED” IN RS 
MOV 4(R1),R4 :PUT “FOUND” IN RY 
CMPB sR’, R4 :DATA CORRECT? 
BEQ 33 :BR IF YES 
HLT ll ERROR 
INC R2 NEXT ADDRESS 
CMP #2000, R2 :DONE YET? 
BNE 2s :BR IF NO 
SCOPE :SCOPE THIS TEST 


; SERRA AARAAEEEAEEEEAAARERRES TEST 12 2eeeeeRRRHERRRRRAR ADELE ERE 
; ¥I0P yo sl QOT BITS rear 

:*#LOAD MAR WITH AO INC MA eo wTEL IT IT Matt ne (eo? pings) 
VERIFY THAT IBUS* 10 BITS I A ONE 
eee THAT IBUS* 10 BIT& IS SET ON NAR Y WERE LOW. 2000) 

EER A RARER E REE ER REESE ERERAAERE REALE RASEARERRRARERESERESR 


; TEST i2 


OZDMH  MACYL] 27(1008) 14-DEC-76 16:32 PAGE 42 Pace: 2187 
DZOMH.P11 O9-DEC-7& 14:59 IOP TEST 

203000 pee 

2931 017632 012737 oO00012 001226 TSTi2: Mov #12, TSTNO 

2032 O17640 012737 O2e0040 01216 MOV #TST13, NEXT 

2033 O17646 012737 017674 001220 MOV #15, LOCK 

2934 ;R1 CONTAINS BASE OMCLi ROORESS 

2035 017654 104412 MSTCLR MASTER CLEAR DMC11 

2036 017656 032737 100000 001366 BIT #BIT1S,STATI aC THIS AN IOP? 

2037 017664 901464 BEQ 2$ ; SKIP TEST IF NO 

2038 017666 ooso02 CLR R2 =SAME AS MAR CONTENTS 

2039 017670 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK P¢=S304 

2040 017672 9Oi0000 010000 AR+O 

2041 017674 iS: 

2042 017674 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

2043 017676 121204 121204 ; PORTH=1BUS* 10 

2044 617700 Oo0S00S CLR RS :RS="EXPECT 

2045 017702 O32702 000400 BIT 88178, Re 15 BIT8 SET IN MAR? 

2046 017706 O01402 BEQ +6 

2047 017710 012705 occo40 MOV #BITS,RS iT Yes THEN SET BITS 

2048 017714 016104 O00004 MOV 4(R1)°R4 “FOUND” 

2049 017720 O42704 177637 BIC $177637,R4 +O EAR UNWANTED BITS 

2050 017724 Oe0S04 CMP RS,RY ;BITS S86 SHOULD BE CLEAR 

2051 017726 00140 BEQ +4 F OK 

2052 Oi 10400 HLT ? ERROR SITS S86 NOT CLEAR 

2953 017732 104401 SCOP1 ‘LOOP TO 11$ IF SWO9=1 

2054 017734 104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

2055 017736 014000 014000 : 

2056 017740 o0S202 IN R2 :BUMP MEM ADDRESS 

2057 017742 Oe2702 oo2c00 CMP #2090, Re :OVERFLOWED YET? 

2058 017746 001352 BNE :B NO 

2059 017750 005037 001220 CLR LOCK :NO ORE SCOP 

2060 017754 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

2061 017756 121204 121204 ‘PATH IBUS* 10 

2062 017760 012705 oo01c0 MOV 8176, RS : Oe EXPECTED" 

2063 017764 O16104 occoo4 MOV ; R4="F OUND” 

2064 017770 042704 177637 BIC Meco R4 ?CLEAR UNWANTED BITS 

2065 017774 O20S04 CMP RS.R4 ‘BIT SHOULD BE SET 

2066 017776 001401 t BEQ +4 :BR IF OK 

2067 Oe0000 104007 HLT 4 sERROR BITS NOT SET 

2068 O20002 104414 ROMCLK T WORD IS INSTRUCTION, ROMCLK Po=S204 

2069 Oe0004 dO10000 019000 

2970 Oc0906 104414 ROMCLK i WORD IS INSTRUCTION, ROMCLK Pc¢=5304 

2071 020010 oo4000 004000 :MAR HI¢0 7 

2072 O20012 104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

2073 020014 121204 121204 PORT4+IBUS* 10 

2074 O200i6 ooS00s CLR RS iRS= EXPECTED” 

2075 020020 O16104 oDD004 MOV 4CRL),R4 sRA=* FOUND” 

2076 Oe0024 042764 177637 BIC #177637, R4 ;CLEAR UNWANTED BITS __ 

2077 020030 de0so4 CMP RS,R4 ‘BITS S86 SHOULD BE CLEAR 

2078 O20032 001401 BE +4 BR IF OK 

2079 920034 104007 HLT ? ‘ERROR 586 NOT BOTH CLEAR 

e080 $0026 104402 23: SCOPE :SCOPE THIS TEST 

2082 

2083 ; PERRRRARERESRRRRERELRHRARES TEST 13 RRHREERRSERRADARERERERR EES 

2084 :*CROM READ 


TEST 
ecss -*#THIS TEST READS EACH ROM LOCATION AND COMPARES 


-— <r ee 


G15 


DZ0MH  MACYLI 27(1 1008) _itgeC-76 16:32 PAGE 42 PAGE: 2188 
DZOMH.Pi1  O9-DEC-7& 14:59 SROM READ TESTS 
3086 #IT TOA SOF THARE DUPLICATE OF THE CROM. THIS TEST 
F #4 50 TESTS THE JUMP(I) MICRO-PROCESSOR INSTRUCTION. 
5pee s RERRAKERSASRAAASRELAREASLA ARAL AAAAALAAA LAL ALAAAASAALAARFLAAAF2E 
cre ; TEST 13 
2092 o20040 912737 900013 o01226 TST13: OV #13, TSTNO 
2993 020046 912737 920230 O01216 MOV aietis NEXT 
2094 O209S4 012737 O20106 Odle20 MOV #13, L0¢K 
2095 RL CONTAINS BASE DMC11 ADDRESS 
2096 p200be ouMie ; MSTCLR sm ASTER. CL CLEAR pNc ll 
2097 O20064 032737 100000 O0136& BIT aBITIS,STAT! =] AM OR ROM 
2098 020072 9001055 BNE 4§ SCrP TEST IF CRAM 
S100 080078 D1s700 O11766 NOV AROMMAP, RO INTS TO 
zi8 Betice Sisthe ak | oun ne RO AOORESS BTS OP eas 
2193 020106 p03003 014377 020126 13: BIC #14377, 23 ccc aDORESS ee ihe ee n 
2104 020114 050237 Oe0le6 BIS Re, 2S 
2105 O2012e0 050337 O20126 BIS R3,2$ :800 ae g 1ib12 10 1) None Breuer ae 
2106 020124 104414 ROMCLK *NEXT WORD RUCTION ROMCLK PC=5304 
2107 020126 109400 pie: 25: 1o0400 aivah a’ sR) TO ROM BDORESS IN R2 8 R23 
\ 
5138 B58134 Bt add Nov tga) Re‘ pet SEXPECTED” IN RS 
21:0 020136 016104 o00006 MOV BCR. RY PUT “FOUND” IN RY 
gill D201 4e oso4 CMP RS,R4 :COMPARE ROM CONTENTS TO SOFT OUP 
eli 144 001414 BEQ 33 IF OK 
2113 020146 010337 0012Se MOV R3, TEMP3 ‘PUT ROM ADDRESS IN TEMPS 
2114 Oe01Se o00241 CLC FOR ERROR 7YPEOU 
2115 020154 37 o012S2 ROR TEMP3 
2116 Oe 006037 o012eS2 ROR TEMP3 
2117 O20164 006037 9001252 ROR TEMP3 ut ay 
2118 020170 OS0237 O0lese BIS Re, TEMP3 ; TEMP _NOW CONTAINS CORRECT ADDRESS 
2119 020174 104004 HLT 4 :ROM READ ERROR 
2120 020176 104401 3S: SCOP LOOP TO 18 IF WO9=1 
gigi $720 TST (RO)+ . BUMP Sor apoin ER 
l 0 INC R2 : BUMP DRESS 
2123 020204 022702 o00400 CMP #400, R2 1S "to os YET? 
2124 O20210 001336 BNE 1$ I 
2125 OeOele o0S00e CLR R2 YES, RESET Re TO 0 
2126 Oe0214 062703 oo4000 ADD #4000, 83 :INC’ TO ReXT PAGE OF ROM 
ele? O20220 O22703 o20000 CMP 820000, R3 DONE. Yer? 
2128 20224 001330 BNE 1$ :BR IF 
gi¢3 O20226 104400 4$: SCOPE : SCOPE THIS TEST 
2131 
5135 Fa ge ee og ae ier 14 SPRRRRRERARERRARES ESS AREEED 
i ?#CROM TEST OF JUMP NEVER MICRO-PROCESSOR INSTRUCTION 
2134 ;¥PERFORM THE JUMP teTanet 
g13 *VERIFY THAT T JUMP 1D hot gee R BY READING 
136 ro CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 
giz s SLLASAAAAAARAAASLARSLASSALAA AAA LALARAARAALARAALALARALARAASRARREZ 
2139 ; TEST 14 
2145 ¢ ereoroerooroerre=-=— 
2!4i 020222 a12727 oc0014 on1e26 TSTI4: MOV #14, TSTNO 


H15 


DZDMH Se 27(1008) 14-DEC-76 16:32 PAGE 4 PAGE: 
OZOMH.P O9-DEC-7& 14:59 CROM SuMP TESTS 

2142 020236 012737 Ode04e0 O0l2l6 MOV aTST15, NEXT 
2143 D20244 012737 20264 O001220 MOV #1$,LOCK 
2144 sR1 dp mw. OMC1i ADDRESS 
2el4S de20252 104412 MSTCLR ; MASTER se Cil 
2i14S 020254 032737 100000 O01365 BIT eBIT1S,STATI :1S IT 

e4 haat 001055 1s BNE 6$+2 : SKIP rest IF YES 
2149 020264 9004737 935430 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
21S0 Qe0270 104414 ROMCLK :NEX XT WORD IS INSTRUCTION, ROMCLK PC=5304 
e1S1 Oe0e7e 100400 100400 : START AT ROM PC= 
21Se 020274 194414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S3C4 
2153 Q20276 114377 114377! <400#0> 0 ROM PC 1777 
21854 O20300 004737 0o35522 JSR PC ,ROMDAT :RSEXPECTED ROM DATA,RY=ACTUAL ROM DATA 
21SS5 020304 9d0000e2 2 
2156 020306 020504 CMP RS,R4 ‘ARE nek PC CONTENTS CORRECT? 
2157 020310 001401 BEQ 2s ;BR IF YES 
2158 Oe03le 104006 HLT 6 : ERROR wt PC IS WRONG 
2159 020314 104401 2s: SCOP1 LOOP. to § IF SWOS=1 
2160 Q20316 012737 020324 001220 MOV #3$, LOCK : NEW 
Ae S50 S54 737 035430 - R PC, CLRALL OND 
5185 65835¢ 104414 ReHCLK - next 2b 81 RS TRUC ION, ROMCLK PC=S304 
2164 Q20332 100403 so 
2165 920334 104414 ROMC i REXT Toro" ts TNGTRUCTION, ROMCLK PC=S304 
2166 020336 100000 TogobO! <4o0%0> - JUMP TO’ROM PC 
2187 O20340 004737 935522 JSR PC ROM moat ;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2168 O20344 g00010 10 x 
2169 QO20346 O20S04 CMP RS,RY ARE NEW PC CONTENTS CORRECT? 
2170 020350 001401 BEQ 4§ :BR IF YES 
2171 Qe203S2 104006 HLT 6 ERROR CROM PC IS WRONG 
2172 020354 104401 4$: SCOP 1 Pt9, - IF SWO9=1 
e173 Ge0356 012737 020364 901220 ™ MCV #S$,LOCK onl 

175 4 737 035430 JSR PC,CLRALL ONDITION 
5i5e 354 104414 ROMCLK AT WORD 127 INSTRUCTION, ROMCLK PC=5304 
2177 020372 100408 100406 PC=6 
2178 O20374 104414 ROMCLK inex ut "WORD 15, INSTRUCTION, ROMCLK PC=S204 
2179 020376 104125 104125! <400#0> UMP TO ROM 
2180 O20400 004737 935522 JSR PC ,ROMDAT tRSSEXPECTED Ron DATA, RY=ACTURL ROM CATA 
2181 Q20404 dOO0001E 16 xX 
2182 Oe040& Ode0S04 CMP RS,R4 ARE NEW ROM PC CONTENTS CORRECT? 
2183 020410 001401 BEQ 6$ :BR IF YES 
2184 Oe04le 104006 HLT 6 ; ERROR * + Is WRONG 
2185 020414 104401 8S: SCOP! sLOOP fo S$ IF SwWS9=! 
tt, Oe0416 104400 SCOPE ‘SCOPE ouze test 
2188 
218g ; RERARRLERERRARRRRERERERERRELE TEST 15 2HRHRRRERERRE EERE R EERE REED 
2190 ;#CROM TEST OF JUMP(I) ALWAYS MICRO-PROCESSOR INSTRUCTION. 
e191 :*#PERFORM THE JUMP INSTRUCTION 
2192 peel THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 
ts « RERRLEGE RSE AARALA AS RRR E SALA REAR ARERR ARALSARARAS REL EA LARRAERSS 
sie ; TEST 15 

2397 CecCs20 012737 8081S ad9l1eze TST15: Mov #15, TSTNO 


DZDOMH MACYLI1 27(1006) 
OZOMH. Pil 78 4 


5138 
é 


rates 


020574 
020602 
020619 


09-DEC- 


B15737 


104412 
3? 


012737 
104414 
03 


104400 


pier ae 
012737 
C1e737 


— 76 16:32 PAGE 


Bons 00182 


100000 001366 


035522 


020510 001220 


035522 


O20S44 o01e20 


03SS2e2 


000016 O01226 
020764 O0lel6 
Ce0620 001220 


45 
CROM JUMP TESTS 


1$: 


2s: 
3$: 


4§: 
S$: 


$$: 


TST16: 


I15 


PAGE: 

MOV #TST16, NEXT 
MOV #1$, LOCK 

;R1_ CONTAINS BASE DMC11 ADDRESS 
MSTCLR MASTER CLEAR DMC11 
BIT #BITIS,STAT! 31S IT CRA 
BNE 6$+2 : SKIP TEST. IF YES 
RONCLK wee HOR, Is INSTRUCTION, ROMCLK PC=S204 
ROMCLK i ts NSTRUCTION, ROMCLK PC=5304 
TENS cupox1> NEN i" me if cI ucts 
JSR PC,ROMDAT :RS=EXPECTED ROM BATA, R4Y=ACTUAL ROM DATA 
3776 : INDEX 
CNP RS,RH ; ARE NE PC CONTENTS CORRECT? 
HLT 6 jERROR CROM Pc IS WRONG 
SCOP1 Pi0. ois 1 F SWO9=1 
MOV #3$, LOCK NEM SCOP 
ROMCLK ;NEXT WORD 15 INSTRUCTION, ROMCLK PC=5304 
100403 ; START AT 
ROMCLK *NEXT WORD rs INSTRUCTION, ROMCLK PC=5304 
100000! <4O0%1> ;JUMP TO’ROM PC OF O 
JSR PC, ROMDAT ; RS-EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
CMP RS,R4 :ARE NEW PC CONTENTS CORRECT? 
BEQ 4S -BR IF YES 
HLT b ‘ERROR, CROM PC IS WRONG 
SCOP *LOOP to. 3$ IF SWO9= 
MOV #5$, LOCK :NEW SCOP1 
ROMCLK NEXT WQRO IS INSTRUCTION, ROMCLK PC=5304 
100406 ;START A T ROM Pc= 
ROMCLK ‘NEXT IS INSTRUCTION, ROMCLK PC=5304 
104125! <400#1> :JUMP TO ROM PC OF Ses 
ISR. PC, ROMDAT ;RS= XPECTED ROM DATA,RY=ACTUAL ROM DATA 
CNP RS,R4 are Ney ROM PC CONTENTS CORRECT? 
HLT 6 ERROR, Bom PC. IS WRONG 
SCOP1 P fo S$ IF SWS9=1 
SCOPE ‘SCOPE THIS TEST 


5 RRLRREREAKRLELERERERLERRHSE TEST 16 £eRRSRRERRRREERARELELERELRG 

; #CROM TEST oT JUMP(I) ON C BIT SET LA em ta INSTRUCTION. 
-*SET THE C B PERFORM THE JUMP INSTRUCTION 

plial THE ee BY READING THE CONTENTS OF THE NEW ROM PC 
Pritt tttt titi ttt itt titi tttitttttt) 


; TEST 16 
hoy #16, TSTNO 
MOV aft? NEXT 
MOV $, LOCK 
:R1 CONTAINS BASE DMC11 ADDRESS 


3130 
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peony 


104412 
032737 
001085 


012737 


004737 
104414 
100406 


104400 


012737 
012737 
012737 


14-DEC-76 16:32 PAGE 
759 


100000 


035476 


035522 


020670 
035476 


035522 


020730 
035476 


035522 


000017 
021154 
021020 


001366 


001220 


CO1220 


001226 
Ol2l6 
O1e20 


46 
CROM JUMP TESTS 


1$: 


2s: 
33: 


4§: 
5$: 


6$: 


TST1?: 


J15 


MSTCLR ;MASTER ao DMC1i1 
BIT #81T15,STAT1 ;1S IT 
BNE 6$+2 ;SK IP TEST IF YES 


JSR PC,SETC ;SET THE C BIT’ 
ROMCLK 


M ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
Agg4og START 8 AT ROM M PC= =0 

MCLK ?NEXT WORD IS INS RUCTION, ROMCLK PC=5304 
114377! <4O0x2> : JUMP TO ROM PC OF 1 
JSR PC, ROMDAT hen =EXPECTED ROM bata. ” R4=ACTUAL ROM DATA 
CMP RS,RY : ARE NEW PC CONTENTS CORRECT? 
BE 2 :BR IF YES 
HL 6 RROR RON Pc IS WRONG 
SCOP1 ;LOOP to. 1 I F SWO9=1 
MOV #3$, LOCK * NEW 
JSR PC,SETC ;SET THE C BIT’ 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
100403 : START 


ROMCLK ‘NEXT yore IS INSTRUCTION, ROMCLK PC=5304 
yogaga# «49048» - JUMP 70. RON NPC OF - 
PC, ROMDAT ECTED ROM DATA,RY=ACTUAL ROM DATA 


0 X 

CMP RS,R4 ARE NEW PC CONTENTS CORRECT? 

BEQ 4g ‘BR IF YES 

HLT & ‘ERROR, CROM PC IS WRONG 

SCOP1 LOOP to 3s IF SWO9=1 

MOV #5$, LOCK *NEW SCOP1 

JSR PC,SETC ;SET THE C BIT’ 

ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

sorcer sS TART oR Wes IN NSTRUCTION, ROMCLK PC=5304 
c= 

ROT bE cupoxe> aN WORD IS. I use 

SR PC, ROMDAT RGAEIPECTED ROM DATA,RY=ACTUAL ROM DATA 

AGB RS,R4Y RE NEW ROM PC CONTENTS CORRECT? 

BEG 6$ :BR IF YES 

HLT 5 ERROR CR on Pc IS WRONG 

SCOP1 P to S$ IF SWS9=1 

SCOPE SCOPE THIS TEST 


; RHAAAAASREREA ALLL RARARALAEE Test L7 RHERRSRAASARRSRALAASAERAREARE 
; #CROM TEST OF JUNP(T) ON Z BIT SET MICRO-PROCESSOR INSTRUCTION. 
-¥SET THE 2 BIT ERFORM THE JUMP INSTRUCTION 

Seer THE JU tp’ Bi READING THE CONTENTS OF THE NEW ROM PC 

at A Sh Re bee Bn Bett add BL Bh 


; TEST 17 
hov #17, TSTNO 
MOV e428 NEXT 
MOY #13, LOCK 
:R1 CONTAINS BASE DMC11 ADDRESS 


ee - 0 0 eee ee oe -- 
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DZOMH.P11 
a? Bits 
e3l2 021016 
2313 021020 
2314 021020 
2e31S 021024 
si I 
2318 021032 
3 IRS 
cack 02104e 
5 ine 
23e4 021050 
2325 021052 
£55 ie 
2328 te ee 
3 i 
2331 tee 
$8 HIS 
2334 021102 
2335 021104 
2336 021106 
2337 021110 
2338 Oellle 
2339 021120 
2340 021120 
su le 
fae, site 
2 Bie 
ae ig 
53a BB1149 
2349 021146 
2350 021150 
2351 021152 
e3Se 
2353 
2354 
ee? 
peu4 
£8 
2360 
es Ble 
e364 OSii70 


a3e73° 


104006 
104401 


104401 
012737 


004737 
O44 


104400 
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100000 001366 


035514 


03SS22 


021069 001220 
035514 


03522 


021120 001220 
035514 


03SS2e 


p 


CROM JUMP Tests 


1$: 


es: 
3$: 


4§: 
5$: 


6$: 


TST20: 


K15 


PAGE: 

MSTCLR MASTER CLEAR OMC11 
BIT #BIT1S,STAT! IS IT 
BNE 6$+2 : SKIP Tet IF YES 
JSR PC,SETZ ;SET THE 2 BIT” 
RONCLK XT WORD IS INSTRUCTION, ROMCLK PC=S304 
RORCLK, ae Bt weno” i Fhe? RUCTION, ROMCLK PC=5304 

< #4> 
ISR PEC ROMD AE ec pond bata.R R4=ACTUAL ROM DATA 
CHP — ‘ORE ney PC CONTENTS CORRECT? 
BFS E BRIE Y OM PC IS WRONG 
SCOP :LOOP to 1$ IF SWO9=1 
MOV 823, LOCK *NEW SCOPL 
JSR PC,SETZ ;SET THE 2 BIT" 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100403 ‘START AT ROM PC= =3 
ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100000!<400*#3> ;JUMP TO’ ce weet : 
JSR Pc, ROMDAT =EXPECTED ROM DATA,RY=ACTUAL ROM CATA 
CHP RS,R4 ORE eM PC CONTENTS CORRECT? 
HLT 6 RR OM PC IS WRONG 
SCOP1 : LOOP tgp 25 IF SWO9=1 
MOV #5$, LOCK : NEW 
aoc kK TOMES Ye NS i S INSTRUCTION, ROMCLK PC=5304 
plat iShaRT of OR =6 3 
ROMCLK, aol NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
Je ‘ Pe hen MDAT EE RS Ron Obata RY=ACTUAL ROM DATA 
CHP RS,R4 ae neu ROM PC CONTENTS CORRECT? 
EQ 6 RI YES 
HLT § CRON Pc IS WRONG 
SCOP1 ae oR 58 JE SWS9=1 
SCOPE COPE THIS TEST 


; RERRLEAALRARRERERRRRRERERESS TEST OD SHRRHRRESRERERELESLERERELE 


i xEROM Ne oF IY Pane OTHE “tne p ner RucrTOR, INSTRUCTION. 


s#VERIEY THE JUMP W ROM PC 
sense leronubesnarractaccasusetussauterseasansdastesssasavaeeas 


hov. #20. TST 
MOV reer at NEXT 
#1$, LOCK 
:R1 CONTAINS BASE OMC11 ADDRESS 


ee 


L15 


DZDMH MACYLI 27(1006) 14-DEC-76 16:32 PAGE 4 PAGE: 0192 
DZDMH.P11  O9-DEC-78 14:59 CROM came” TESTS 
2366 021176 104412 MSTCLR MASTER CLEAR DMC11 
2367 021200 032737 100000 001366 BIT #B1T15,STATI 
1206 001055 - BNE 6$+2 ee TEST IF YES 
79 021210 004737 O3S5446 PC, SETBRO T 8 
S35) Betsiy foNai4 ROMCLK SREXT WORD TS INSTRUCTION, ROMCLK PC=5304 
2372 O21216 100400 100400 START AT ROM PC=0 
2373 Oel220 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
2374 Oel222 116377 114377! <400%4> fn TO ROM 1777 
2375 Oel2e4 004737 035522 ISR PC, ROMDAT =EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2376 021230 003776 3776 
2377 Oele3s2e O20S504 CMP RS,RY ae e CONTENTS CORRECT? 
2378 021234 001401 BEQ 2$ 
g373 1 36 1 104006 HLT 6 Ron PC IS WRONG 
380 O21 401 25: SCOP1 ani 18 IF SWO9=1 
2381 Oe12Ne 012737 021250 001220 = MOV #3$, LOCK 
1528 004737 035446 JSR PC, SETBRO ext THE BRO BIT 
e384 021254 14414 RONCL K sNEXT WORD IS INeTRUCTION, ROMCLK PC=5304 
S3eP BS 1528 1049414 AOOCLe *NEXT woro"te INSTRUCTION, ROMCLK PC=5304 
533 5 tceq See 035S22 a e0Ot ec romoat w fies KPECTED ROM DATA, RY=ACTUAL ROM DATA 
ue ° H = ’ r 
5388 051990 phd ; i TROEX 
2390 021272 o20so4 CMP RS,RY :ARE NEW PC CONTENTS CORRECT? 
2391 021274 001401 BEQ 4§ ;BR IF YES 
2392 021276 104006 HLT 6 SERROR, CROM PC_IS_WRONG 
2393 O21 300 4g: SCOP1 Loop. to. A IF SWOS9=1 
394 021302 012737 021310 o01220 MOV #5$, LOCK New SC 
395 021310 S$: 
239% 021310 004737 o35446 JSR PC, SETBRO ;SET THE BRO BIT’ 
397 021314 104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2398 021316 100406 100406 :START A TRO PC= 
2399 021320 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
2400 O2l32e2 106125 104125! «400%4> : JUMP TO ROM 
2401 021324 004737 035522 ISR PC, ROMDAT *RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2402 021330 1252 : INDEX 
e403 021332 0S cNP RS,R4 : ARE NEW ROM PC CONTENTS CORRECT? 
sits ele itiOde ot Btn Beate, hon oc_15_ upon 
sug? 021342 104400 SCOPE :L 008 to 38 Sa 
2409 
2410 ; RHRRSERERLE RELA RELRRLLERELE TEST 2] KERRSRSRSSS SESE SASALSE RAZR 
2411 #CROM TEST OF JUMP(I) ON BRL SET MICRO-PROCESSOR INSTRUCTION. 
2412 :#SET THE BRI BIT, PERFORM THE JUMP INS I 
2413 *#VERIFY THE J ING THE CONTENTS OF THE NEW ROM PC 
ute ; s RKRKKERRAALRER ERS S ELAR ARREARS SA RARARSASASARSAALASAARARASARSES 
e416 ; TEST 21 
2418 021344 012737 000021 o01226 TST21: MOV #21 TSTNO 
e4 9 02135 b1¢737 01534 Olel6 MOV k Ht Mine NEXT 
420 0213 12737 021400 001220 MOY 


2421 :R1 CONTAINS BASE DMC11 ADORESS 


— + oe oe ee ee ere ee 


M15 


DZOMH  MACY11 27(1006) aie 16: ‘- PAGE: 9194 
DZOMH.P11 eheto7e 14 * Eeon UMP TESTS 

e4ee 021366 104412 MSTCLR ; MASTER CLEAR DMC11 

2423 021370 032737 100000 001366 BIT #BIT1S,STAT1 :1S I 

e4e4 021376 001055 BNE 6$+2 ;SKIP TEST IF YES 

e4eS natty 1$: 

e4e& Cel 004737 035454 JSR PC, SETBR1 ;SET THE BRI BIT’ 

e427? O0el404 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

PH B51 108 nora oor ; START AT ocao 

1410 = 104414 NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 


buat rate Aaeo35 035522 Je” FE,ROHAT Wee LS ROM D batar R4=ACTUAL ROM DATA 





2433 Delve De0S04 aap RS,R4 OREN NEW PC CONTENTS CORRECT? 
Suse 14 rant BFS gs 1m ‘f OM PC IS WRONG 
2436 021430 104401 2s: SCOP1 *LOOP to 1$ IF SWO9=1 
2437 O21432 012737 o21440 001220 MOV #3$, LOCK *NEW SCOPI 
Sud 81440 OON737 O3SHSH 38: sR =P, SETBRI T B 
Ba ee ite a Ia Reap RSITTION ux Paso 
e442 021450 ROMCLK T WORD ie INSTRUCTION, ROMCLK PC=5304 
2443 021452 100000! <400%5> :JUMP TO’ ie 
e444 21454 03sS22 ISR PC, ROMDAT tone ROM DATA,RY=ACTUAL ROM DATA 
Sade BS tues CMP RS,RY NEW PC CONTENTS CORRECT? 
2447 021464 BEQ 4s BR IF YES ey 
5448 BS 1i58 4$: SCOP1 FRO to ae TF ~'. - 
21472 021500 001220 ts MOV #5$, LOCK NEW SCOP1 
031800 737 O354S4 f JSR PC, SETBR1 SET THE BRI BIT’ 
ie lee ie Sear a agg MSpUCTION Roca Fossa 
Gsi816 iowis RORCLK, as) ?NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
Oeiai4a oi7s7 03ss22 13k * PC, ROMDAT  RapeecteD RON D a eae ROM DATA 
1S22 20504 CMP RS,RY ARE NEW ROM PC CONTENTS CORRECT? 
125¢ Toaaoe re | OS ERROR aR S WRONG 
021530 104401 6S: SCOP] sL 008 BoP to 5$ IF’ gueget 
021532 SCOPE OPE THIS TEST 


popesungenenensuuesensepanes aru Set Atko~ 2 pecpoonusunsszessecnnensees 
3; #CROM TEST OF J T _ INSTRUCTION. 


;*#SET THE BRY iT INSTRUCT 
seVERIEY THE JUMP’ BY READING g CONTENTS OF THe NEW ROM PC 
oe Sg ak 8 gb bE a 9 9 a a 0 a a aa a a a a ka 


; TEST 22 
021534 012737 900022 901296 TST22: fv a2, TSTNO 
Bie Wee 1650 bolsee MOY RL COCK 


;R1 CONTAINS BASE DOMC11 ADDRESS 


N15 
ope pyr hg he hOOe ytegPee“7@ 10 9 A Gtine TESTS PAGE: 0195 
021556 104412 MSTCLR MASTER CLEAR DMC11 


a3 Beisee Spies 100000 ons gir agigus.stan 1s 11 cag 


pies Sonia Oe aan , arn TET WORD 1S INSTRUCTION, ROMCLK PC=25304 
E56 a 35 ART “AT ROR ‘ 2 


Nee ites <4O0#6> sHEXT HORB 1S, INGTRUCTION, ROMCLK PC=5304 
003 


Oe 
1 

7 021604 035522 PC, ROMDAT :RS= js RSSEXPECTED ROM DATA,R4Y=ACTUAL ROM DATA 

21619 i3R 

89 21612 D20504 CHP RS,R4 ARE NEW PC CONTENTS CORRECT? 

eal Geieis rin fe Og LE "Eh nc 16 unone 
1 104401 2S: SCOP1 ;LOOP. to. 18 IF SWO9=1 

gua 21628 012737 021630 001220 * MOV 83$, LOCK : NEW 

9S 921630 004737 035462 : JSR PC, SETBRY ;SET THE BRY BIT’ 

38 1634 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2497 021636 100403 100403 ; START AT ROM PC=3 

38 et 49 104414 RONCLK XT S INSTRUCTION, ROMCLK PC=5304 

1 1 1 '<400%6> ; JUMP TO’ 
Geiey4 004 035522 JSR PC, ROMDAT HO ne ROM DATA,RY=ACTUAL ROM DATA 
taagage 

seos oS 1229 2050 MP RS,R4 Hee pC CONTENTS CORRECT? 
coo BBIESe ToHO0e hi o iE RON PC IS WRONG 
Sepe OS TERR 1 1 4g: SCOP1 eas 3s IF SWO9=1 
2506 021662 012737 021670 001220 e MOV #5$, LOCK 
e508 oB1670 004737 035462 ; ISR PC, SETBRY er THE BRY BIT’ 

104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sel 85 1878 L ia wna TS Sehaerie, ROMCLK PC=S304 
2512 021702 107125 104125! <400*6> 0 ROM 
gel 961704 OONZ3z 035522 ‘ PC, ROMDAT ipecgyrecren ROM DATA, RY=ACTUAL ROM DATA 
2516 021712 De0S04 CHP RS, RS ARE NEW ROM PC CONTENTS CORRECT? 
sets 1716 porn BEG 5 iBR IE “Cfo pc IS WRONG 
2518 021720 104401 6S: SCOP1 “LOOP To 9=1 
3513 021722 104400 SCOPE SCOPE oui test 

1 
sesh 5 RERARERELAAE ERE RRRREL LAER TEST CQ RHXRHLAASRERA REAR SRSA RRLERSE 
2523 ; #CRON TEST OF mit see) ON BR7 SET NICRO-PROCESSOR INSTRUCTION. 
gpd te THE BR? BIT, PERFORM THE JUMP I TRUC 

bv RIFY THE apap’ BY READING CONTENTS OF rhe NEW ROM PC 

goce 5 RES LRARAAREEAA RAR ASL AA SARA RRA RSA AERA AAA RA SRA AAA AR ARASAA AS LAE 
e508 ; TEST 23 
2530 021724 012737 ? 999023 001226 TST23: hoy #23, TSTNO 
Seah ate EEG aes 651538 MOV 11. LOtK 


e533 :R1 CONTAINS BASE DMC11 ADDRESS 


ee ee ee em e - eee ore - 


ee — coe ere 


© eens eee aecesceues- ———_ 


B16 


DZDMH  MACY11 27(1008) 14-DEC-76 16:32 PAGE Sl Bae: 
DZ2DMH.P11  O9-DEC-76 14:59 CROM JUMP TESTS 
3534 021746 104412 MSTCLR ;MASTER CLEAR OMC11 
1750 032737 100000 001366 BIT #81T15,STATI -IS IT CRAM? 

021756 001055 - BNE 6$+2 -SKIP TEST IF YES 
5232 st 004737 035470 JSR PC, SETBR7 ;SET THE BR7 BIT’ 
2539 021764 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=S3C4 
2540 021766 100400 100400 :START AT PC= 
2541 021770 1049414 ROMCLK * NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
S42 021772 117777 114377! <400*7> :J ROM PC OF 1777 
2543 021774 004737 oO3sS22 JSR PC, ROMDAT :RS= EXPECTED ROM pata. RY=ACTUAL ROM DATA 
2544 022000 003776 3776 : xX 
2545 Oe2002e o20S504 CMP RS,R4Y *ARE NEW PC CONTENTS CORRECT? 
2546 O22004 001401 BEQ 2$ -BR IF YES 
2547 022006 104006 HLT 6 *ERROR, CROM PC IS WRONG 
2548 022010 104401 2S: SCOP1 “LOOP to. 18 IF SWO9=1 
2549 Oee0le 012737 O22020 001220 MOV #3$, LOCK NEW SCOP 
2550 Oe2020 3S: 
2551 O22020 004737 035470 JSR PC, SETBR7 ;SET THE BR7 BIT’ 
esS2 022024 104414 ROMCLK *NEXT WORD 1S INSTRUCTION, ROMCLK PC=5204 
2553 Oe2026 100403 100403 5 START AT 
2554 022030 104414 ROMCLK ?NEXT WORD ts INSTRUCTION, ROMCLK PC=S304 
e555 Oe2032 103400 100000!<400%7> ;JUMP TO’ROM PC OF O 
2556 022034 004737 oO3SSe2 ISR Pc, ROMDAT ;RS=EXPECTED ROM DATA,RY=ACTUAL ROM CATA 
2557 Oeco4o 00000 0 
2558 Oee042 de0so4 CMP RS,RY ‘ARE NEW PC CONTENTS CORRECT? 
2559 O22044 001401 BEQ 4g" :BR IF YES 
2560 O22046 104006 HLT 6 :ERROR, CROM PC IS WRONG 
2561 O220S0 104401 4g: SCOP1 ;LOOP | to. 3s IF SWO9=1 
e562 Oee0S2 012737 o2e060 001220 MOV #5$, LOCK NEW 
2563 022060 S$: 
2564 O22060 004737 035470 ISR PC ,SETBR7 ;SET THE BR7 BIT’ 
2565 O2e2e064 104414 PAMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
2566 O2e066 100406 190406 ;START A T ROM PC= 
2567 O22070 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2568 022072 107525 104125! <400%7> : JUMP TO ROM PC 
2569 022074 004737 035522 JSR PC, ROMDAT ; RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2570 022100 O012S2 1252 
2571 Oeel0e d20s04 CMP RS,R4 ‘ARE NEW ROM PC CONTENTS CORRECT? 
2572 022104 001401 BEQ 6$ ;BR_IF YES 
2573 O22106 104006 HLT 6 ;ERROR, CROM PC_IS WRONG 
2574 Oeelli0 104401 6S: SCOP! ‘LOOP to S$ IF SWS59=1 
g576 022112 104400 SCOPE :SCOPE THIS TEST 
2577 
2578 5 RHAAAALSASEAELLALL LES EEARAES TEST GY HXXKHRSARASRE ARES SSERERERED 
2579 >#CROM TEST OF JUMP(I) ON C BIT SET MICRO-PROCESSOR INSTRUCTION. 
2580 ; #CLEAR THE C BIT, PERFORM THE JUMP INSTRUCTION, 
258] :*VERIFY THAT THE JUMP DID NOT OCCUR BY READING 
2582 sere CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 
Sees © SEKKRRESAARERALA RELA SHLAA ALAA AAA AAA LAA SARE SERAALALSHERELSRAKADVG 
58s ; TEST 24 
2587 022114 912737 O00024 001225 TST24: MoV #24, TSTNO 
2588 Oeelee 012737 022304 OO0lz16 MOY eTSt2S NEXT 


e589 022130 012737 Oe2e2150 o01e20 MOV #15, LOCK 


C16 


DZOMH  MACY11 27(1006) 14-DEC-76 16:32 PAGE Se PRE: 


DZDMH.P11 O09-DEC-76 14:59 CROM JUMP TESTS 
2590 ina CONTAINS 7. Mee ADDRESS 
2591 O22136 104412 MSTCLR MASTER CLEAR DMC 
2592 022140 032737 100000 O01366 BIT #BIT1S,STAT1 iG IT CRAM? 
Seaq 5} 001055 is BNE 6$+2 : SKIP TEST IF YES 
eS9S 022150 004737 035430 JSR PC, CLRALL sCLEAR ALL CONDITIONS 
2596 022154 104414 ROMCLK * NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
2597 Q22156 100400 100400 i START AT ROM PC=0 
2598 Oe2160 104414 ROMCLK * NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2539 Oeelbe 115377 114377! <400%2> : JUMP TO ROM PC OF 1 
2600 022164 004737 035522 JSR PC ,ROMDAT : RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2601 022170 go00002 2 
2602 Q2el72 d20504 CMP RS,RY ARE NEW PC CONTENTS CORRECT? 
e603 022174 O01401 BEQ es :BR IF YES 
2604 022176 104006 HLT 6 ; ERROR “a's re IS WRONG 
2605 Oeee00 104401 23: SCOP1 ;LOOP | to. 1$ I F SWO9=1 
e606 Oeee0e 012737 O22210 001220 MOV #3$, LOCK : NEW 
2607 O22210 33: 
2608 O22210 004737 035430 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
2609 O22214 104414 ROMCLK : NEX XT WORD IS INSTRUCTION, ROMCLK PC=S304 
e610 Oee22l6 100403 ove START AT ROM PC=3 
2611 Oe2220 104414 ROMC : HEX XT WORD IS INSTRUCTION, ROMCLK PC=S304 
eble Oeeeee 101090 TopSbo! <4ODx2> - JUMP TO’ROM PC OF 
2613 O22224% 004737 9035522 JSR PC, ROMDAT ; RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2614 O22230 000010 10 
2615 Oeee3e d20504 CMP RS,RY : ARE NEW PC CONTENTS CORRECT? 
2616 O22234 O0140! BEQ 4¢ YES 
2617 Oe22236 104005 HLT 6 ; ERROR Cart PC IS WRONG 
2618 Oe2e4O 104401 4§: SCOP 1 LOOP to § IF SWO9=1 
2619 Oeee4¥e 012737 Geeesod o0le20 MOV #5$,LOCK NEW SCO pi 
2620 Oe22es0 S$: 
ebel Oe2eS0 004737 035430 JSR PC,CLRALL ;CLEAR ALL CONDITIONS 
ebee OeeeS4 104414 ROMCLK : NEXT WORD is INSTRUCTION, ROMCLK PC=5304 
e623 OeeeS& 100406 100406 : START AT 
e624 Oeeeb0 104414 ROMCLK *NEXT WORD iS INSTRUCTION, ROMCLK PC=S304 
26eS Oeeebe 105125 104125! <400%e2> > JUMP TO ROM PC OF S2S 
022264 004737 035522 JSR PC ,ROMDAT ; RSSEXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2627 022270 OO0016 16 
2628 Oe227e 020504 CMP RS,R4 ARE NEW ROM PC CONTENTS CORRECT? 
2629 022274 001401 BEQ 6$ :B9 IF Y 
2630 Oe2e276 104006 HLT 6 sERROR os ~ IS WRONG 
2631 Oe22300 104401 6$: SCOP 1 P to S$ IF SwWS9=1 
Ba 022302 104400 SCOPE SE COPE THIS TEST 
2b 
2635 5 RERKRRAL RAK ERSRARRAREREELES TEST OS RRXRELRAARAAERERRERLER EARLS 
2636 :#CROM War OF JUMP(I) ON Z BIT SET MICRO-PROCESSOR INSTRUCTION. 
2637 :#CL EAR THE Z BIT, PERFORM THE JUMP INSTRUCTION, 
2638 : #VERIFY THAT THE’ JUMP DID NOT OCCUR BY READING 
2639 i #THe CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT SY ONE). 
cri 5 EELS E RHEE SEALE LEELA EEA LAER ERASE RES ESSE PRESS RRE 
oa tals ;. TEST 2s 
2644 022304 012737 o0002S 001226 TST25: Mov #25, TSTNC 


2645 OCee3l2 012737 O2e474 OO0lelé MOV #TST26, NEXT 


DZOMH  MACY11 27(1008) 
) O9-DEC-75 14 
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022320 


Cz2474 


012737 


012737 


— 76 16:32 PAGE S3 


022340 


100909 


C3S430 


035522 


022400 
035430 


035S22 


Ce2440 
035436 


035S2e 


coooze 


001220 


001366 


001229 


001220 


001226 


CROM JUMP TESTS 


1$: 


2S: 
3S: 


4$: 
53: 


6$: 


TSTeb: 


D16 


PAGE 
MOV #15, LOCK 
:R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR “MASTER CLEAR DMC11 
BIT #BITIS,STAT:  :IS IT CRAN? 
6$+2 :SKIP TEST IF YES 

ISR PC, CLRALL j CLEAR ALL CONDITIONS 

ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=S204 
100400 ;START A T ROM PC= 

ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
114377! <400#3> JUMP TO ROM PC OF 1 

JSR PC, ROMDAT sRSSEXPECTED ROM DATA,RY=ACTUAL ROM DATA 
Eup RS,RY ‘ARE NEW PC CONTENTS CORRECT? 
BEG 2$ :BR IF YES 

HLT 6 sERROR CRON, Pc IS MRONG 

SCOP! Pig. 1$ I F SWO9= 

MOV #3$, LOCK REN S 

JSR PC, CLRALL ;CLEAR ALL CONDITIONS 

ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
00403 ;START 8 AT ROM PC=3 

OMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
190000!<400*3> ;JUMP TO’ ROM PC OF O 
ISR PC, ROMDAT sRS= x CTED ROM DATA,RY=ACTUAL ROM DATA 
CMP RS,R4 : ARE NEW PC CONTENTS CORRECT? 
BE 4g BR IF Y 
HLT 6 ERROR “Con, PC IS WRONG 

SCOP1 :L PA9, 3$ 1 F SWO9=1 
MOV #S$, LOCK ‘Kew s 
ISR PC, CLRALL :CLEAR ALL CONDITIONS 
ROMCLK :NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
100406 :START AT ROM PC=6 
ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
104125! <400*3> :JUMP TO ROM 
ISR PC, ROMDAT sRSAEXPECTED ROM DATA.R4Y=ACTUAL ROM DATA 
CHP RS, JRY ; ARE NEW ROM PC CONTENTS CORRECT? 
HLT 6 ERROR CROM PC IS WRONG 
SCOP :LOOP fo S$ IF SW59=1 
SCOP ‘SCOPE THIS TEST 


j RRRRERERERRRRRRERERERRERELE TEST OG RARER LERAR ERLE EAES EELS SES 

s #CROM T st OF site ON BRO SET oon O-PROCESSOR INSTRUCTION. 
ers 7 ero Bl PERFORM THE JUMP INSTRUCTION, 

EVE IFY THAT THE Jomp DID NOT OCCUR BY READING 

:4THE CONTENTS OF THE NEW ROM PC‘(‘IT SHOULD INCREMENT BY CONE). 

{RRS EE EEE EEE EEL EE LHR AREA A ESE EEK EEE EE EA SEAL ALAA RRARERSEREE 


hoy #26, TSTNO 
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a858%0 


C3SS22 


02257C 
035430 


035522 


022630 
035430 


03522 


BB 138 


031366 


001220 


001220 


ROM JUMP TESTS 


4$: 
S$: 


5$: 


E16 


PGGE: 
MOV ar6T27 NEXT 
MOV #18, Lock 
;R1_ CONTAINS BASE NCL ADDRESS 
MSTCLR MASTER CLEAR DHC11 
BIT #81T15,STATI Ts 
QNE 6$+2 :SKIP TEST IF YES 
ISR PC, CLRALL ;CLEAR ALL CONDITIONS 
ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=S2304 
100400 :START AT ROM PC= 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S204 
114377! <400#4> : JUMP TO ROM PC OF 
JSR PC, ROMDAT sRSSENPECTED ROM BATA RYSACTUAL ROM DATA 
Eup RS,R4 ARE NEW PC CONTENTS CORRECT? 
BEG 2 :BR IF YES 
HL c “ERROR, CROM PC_IS WRONG 
SCOP LOOP to. 18 IF SWOS=1 
MOY #3$, LOCK NEW SCOP 
ISR PC, CLRALL ; CLEAR ALL CONDITIONS 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
; START AT WaT DROn & C= 
:NEXT S INSTRUCTION, ROMCLK PC=S304 
JB ea - JUMP TO’ ROM 
;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
RS.R4 ARE NEW PC CONTENTS CORRECT? 
Bro 43 :BR IF Y 
& ‘ERROR, CROM PC IS WRONG 
SCOP! ;LOOP. to. 3s IF SWO9=1 
MOY #5$, LOCK :NEW 
JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
pai ‘START AT Pc= 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
104125! <400#4> : JUMP TO ROM PC 
ISR PC, ROMDAT ;RS=EXPECTED ROM bara. R4Y=ACTUAL ROM DATA 
CMP RS,R4 ARE NEW ROM PC CONTENTS CORRECT? 
BE 6$ :BR IF YE 
HLT 6 : ERROR CRON Pc IS WRONG 
Cop :LOOP to S$ IF SW59=1 
COP :SCOPE THIS TEST 


; REREERERRRLEARREREREREREAEEL TEST C7 ReRRRARAEAERA EARL LALERERELE 
j #CROM a OF JUMP(I) ON BR1 SET MICRO-PROCESSOR INSTRUCTION. 
CLEAR THE or} BIT, PERFORM THE JUMP INSTRUCTION, 
t SVERIFY THAT THE JUMP DID NOT OCCUR BY READING 
peTHe CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 
LESSER REE REE RE LEELA REAR RARE AL LASALLE REALE SER ELAR RARE SALE REALE 


; TEST e7 


0199 


F16 


SZDMH -MACYL] 271008) 14-DEC-76 16:32 PAGE SS PAGE: 
D2DMH.P1: O9-DEC-7& 14:59 CROM JUMP TESTS 
2758 022664 012737 900027 001226 TST27: MOV #27, TSTNO 
2759 Oecb72 012737 023054 OOlelé MOV #TST30, NEXT 
2760 Oee700 012737 Gee720 001220 MOY #15, LOCK 
Ea? ;R1 CONTAINS BASE DMC11 ADDRESS 
022706 104412 MSTCLR :MASTER CLEAR OMC11 
2763 022710 032737 100000 001366 BIT #BITIS,STAT1 31S IT CRA 
gre be2716 001055 BNE 6$+2 : SKIP TEST. IF YES 
765 1S: 
2766 022720 004737 035430 ISR PC, CLRALL ;CLEAR ALL CONDITIONS 
2767 022724 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2768 Oe27e6 100400 100400 :START AT ROM PC= 
27639 Oc2730 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2770 See73e 16777 114377! <400%5> : JUMP TO ROM PC OF 1777 
e771 ee 34 O04? 32 035522 ISR PC, ROMDAT ; RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2773 beene De0S04 CHP RS, R4 ARE NeW Pc CONTENTS CORRECT? 
3775 Bee ede rant HLT 6 ERROR CROM PC IS WRONG 
2776 022750 104401 2S: SCOP1 *L oP to. 18 IF SWO9=1 
: Oee7oe 012737 022760 061220 MOV #3, LOCK hee SCO 
779 3s: 
2779 O22760 004737 025430 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
2780 O22764 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2781 022766 100403 190403 ‘START AT ROM 
2782 022770 104414 ROMCLK :NEXT WORD ts INSTRUCTION, ROMCLK PC=5304 
2783 O22772 102400 100000!<400%5> ;JUMP TO'ROM PC 
2784 O22774 004737 oO35S22 JSR Pc, ROMDAT ;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2785 Oe go0019 10 Xx 
2786 Oe o4 CMP RS, RY ‘ARE NEW PC CONTENTS CORRECT? 
2787 023004 001401 BEQ 4g YE 
2788 023006 104006 HLT 6 ERROR CROM Pe IS WRONG 
789 923019 1O4MO1 4g: SCOP1 : LOOP to. 31 F SWOS=1 
3730 le 012737? 023020 01220 a MOV #53, LOCK ‘NEW SCO 
3792 eH 004737 0935439 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
2793 023004 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
2794 023026 100406 100405 “START AT ROM 
2795 Oe 194414 ROMCLK NEXT WORD 15, INSTRUCTION, ROMCLK PC=5304 
2796 Oe: 106525 ou Se! <4ooes> : JUMP TO ROM F 
2797 623034 004737 035522 JSR PC, ROMDAT ; RS=EXPECTED ROM DATA, R4Y=ACTUAL ROM DATA 
Shag beapus poneae d N 
? 4 CMP RS,R4 ‘ARE NE ROM PC CONTENTS CORRECT? 
280n be2044 1401 BEQ 6$ :BR IF 
2801 d2204%— i04cne HLT 6 sERROR ‘EBON PC IS WRONG 
e802 23050 194401 &$: SCOP1 P fo S$ IF SWS9=1 
2203 623052 104400 SCOPE + ECOPE THIS TEST 
2805 
2806 ; SERRA LLAAALE RA LA AHA LREALE TEST 30 4XXXSXHSAHSASAERARARA AHS SES 
2807 :#CROM TEST OF JUMP(I) ON BRY SET NICRO-PROCESSOR INSTRUCTION. 
2e0e8 ?#CLEAR THE BRY BIT, PERFORM THE JUMP INSTRUCTION, 
e809 ; VERIFY THAT THE JOMP DID NOT OCCUR BY READING 
2819 ;¥THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 
e212 s RERSRALARASAALRARARAARAAAARASE RRA RA AAA RALASSAAARALAALSHSERELPASERA 
es.€ 
28:3 ; TEST 30 
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104412 


1 
104401 
104400 
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035522 


023150 
035430 


C3SS22 


023210 
035430 


035522 


001220 


001220 


CROM JUMP TESTS 


TST30: 


1$: 


2$: 
38: 


4$: 
S$: 


6$: 


Mov #30, TSTNO 
MOV #TSt31, NEXT 
MOV #1$,LOCK 


MSTCLR 
BIT 


#BIT1S,STATI 
6$+2 

JSR PC, CLRALL 
ROMCLK 

100400 

ROMCLK 

114377! <4O0#6> 
JSR PC, ROMDAT 
CMP RS,R4 

BEQ 2s 

T 6 

SCOP 

MOV #3$, LOCK 
SR PC, CLRALL 
ROMCLK 

100403 
ROMCLK 
100000! <400*6> 
ISR PC, ROMDAT 
CMP RS,RY 
BEQ 4§ 
HLT 
SCOP1 
MOV #5$, LOCK 
JSR PC, CLRALL 
ROMCLK 
Ane] 
CLK 

104125! «400*6> 
is PC, 

l 
CHP RS, RY 
re Og 
SCOP1 
SCOPE 


: 


;R1_ CONTAINS BASE DMCil GODRESS 
:MASTER CL EAR DMC11 


;1S IT_CRAM 
SKIP TEST IF YES 
; CLEAR COND 


STAUCT 
NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
tt ART AT ROM PC= 

NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
: JUMP TO ROM PC OF 1777 

; RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 


; INDEX 
BRE NEW ®C CONTENTS CORRECT? 
PC_IS WRONG 
ca ae SWO9=1 


;CLEAR ALL CONDITIONS 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
:START AT ROM PC=3 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=S204 


; JUMP TO'ROM PC OF O 


TOK ROM DATA,RY=ACTUAL ROM CATA 
; ARE - PC CONTENTS CORRECT? 


: BR 
ERROR “CRON Pc IS WRONG 
:LOOP_fo- 8 IF SWO9=1 


;CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, ROMCLK PC=S3204 
:START AT ROM PC=b 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
; JUMP TO ROM PC OF S25 . 

1 recites ROM DATA,RY=ACTUAL ROM DATA 


: ARE NEM - PC CONTENTS CORRECT? 
PR AIE YE ERon IS WRONG 
F SWS9=1 


LOOP fo S$ I 
:SCOPE THIS TEST 


; RERREERSLAR LA EEARE LALA RAE LE TEST J] S¥eeRRRSRARRARASERRAERALATEE 


; #CROM TEST ST OF JU JUNE CT 
:#CLEAR 
:¥VERIFY EF tue Tom DID 


) ON BR7_SET MICRO-PROCESSOR INSTRUCTION. 
PERF wt ne JUMP INST le 
T OCCUR BY READIN 


THe CONTENTS OF THE NEW RON PC(IT SHOULD INCREMENT SY ONE). 
: RERREREARALL EERE RRA LL RRR EE REALE EERE SAREE EERE EAEARAATEALERRS 
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OZDMH.Pi1 O9-DEC-7& 14:59 CROM JUMP TESTS 
2870 ; TEST 31 
seek 023244 012737 000031 001226 TST31: Mov #31, TSTNO 
73 023252 012737 023434 001216 MOV aTot3e NEXT 
eer 023260 012737 023300 001220 MOV $, Lock 
Rl CONTAINS BASE DMC11 ADDRESS 
2877 pe3cee AOaa4 100000 001366 Bree #BIT1S,STAT S ER CLE Loe Onell 
eeee GBe76 ete - ate egt3 : ice Teer t IF YES 
737 035430 R PC, CLRALL ; CLEAR CONDITIONS 
l Wee riM& A RONCLK XT WORD IS INSTRUCTION, ROMCLK PC=S304 
2882 023306 100400 100400 : START AT ROM PC= 
2883 023310 104414 ROMCLK jNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2884 O23312 117777 114377! <490%7> *JUMP TO ROM PC OF 1777 
2885 023314 004737 035522 SR PC, ROMDAT 5-7 tae ROM DATA. RY=ACTUAL ROM DATA 
5oe8 S535 aa emp RS,R4 ‘ARE NEW PC CONTENTS CORRECT? 
2888 023324 001401 BEG 2$ ‘BR IF YES 
02 104006 HLT 6 ‘ERROR, CROM PC IS WRONG 
Oe 104401 2s: SCOP1 LOOP. fo 1$ IF SWO9=1 
2891 023332 012737 023340 o0i220 MOV #3$, LOCK :NEW SCOP1 
2892 023340 3S: 
gea3 be3340 737 +035430 JSR PC, CLRALL ;CLEAR ALL _CONDITIONS 
104414 ROMCLK ?NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2995 923346 199403 190403 :START AT ROM PC=3 
gu% Oe i 14 RONCLK K, soos? Ju 10 sNEX T WORD IS INSTRUCTION, ROMCLK PC=5304 
3352 00000! < > 
2898 023354 Aaea 02S522 JSR ,ROMDAT ;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DAT 
2399 023360 000010 10 X 
2900 02336¢ 020504 CMP - ‘RE NEW PC CONTENTS CORRECT? 
2901 023364 001401 BEG 4§ YES 
2902 023366 104006 HLT 6 ‘ERROR CROM PC IS WRONG 
2903 023370 104401 4S: SCOP1 :LOOP hop 3s IF SwO9=1 
2904 0233 012737 023499 001220 - MOV #5$, LOCK : NEW 
2906 023400 904737 035430 JSR PC, CLRALL ;CLEAR ALL CONDITION S 
2907 023404 104414 ROMCLK : NEXT WORD 1S INSTRUCTION, ROMCLK PC=S304 
2908 100405 100406 :START AT ROM PC=6 
2909 023410 104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
2910 Oes4l2 107525 194125! <4007> :JUMP TO ROM PC OF S25 
2911 023414 004737 o25Se2 ISR PC, ROMDAT sRS= EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2912 Oe3420 Oo001s 16 y 
2913 Oez422 O20504 cmp RS,RY ARE NEW ROM PC CONTENTS CORRECT? 
e384 5014 j BEG 3 :BR IF YES 
gis 1040 HL 3 ‘ERROR CROM PC IS WRONG 
2316 23430 10440! 6$: SCOP1 :LOOP fo S$ IF SWS59=1 
e212 923432 104400 SCOPE :SCOPE THIS TEST 
2919 
2929 5 RRRALE RRA ERERRERRAEEERERL TEST JO Fee RKEREEEAALEEREREEERLE EES 
321 :#CRAM TEST OF JUMP(T) NEVER MISRO-PROCESSOR INSTRUCTION. 
S22 #PERFORM THE JUMP INSTRUCTION 
2923 ;*VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 
gz ;#IN LOCATION 4 IS AT. THIS "NSTRUCTION LOADS THE 
$25 :4#BR WITH THE LOWEST 9 BITS OF THE CRAM PC. AT THIS POINT 


O18737 


012737 


104401 
012737 
004737 
104414 

00403 
104414 


00000 
004737 


QZOMH . MACYL127(1005) 1Y-DEC-76 16:32 


190000 
03S56S4 
035430 


035550 


023534 
035430 


035559 


023574 
035430 


035850 


001226 
O01e1& 
001220 


001366 


001220 


001220 


TST32: 


1$: 


es: 
3$: 


S$: 


&$: 


i‘ y 
CRAM JUMP TESTS 


116 


PAGE: 


;#THE BR DATA IS MOVED TO PORTY. IF THIS DATA IS CORRECT 
Hy PC ie COREE T, IF THE CRAM PC IS NOT RIGHT, 


PORT4Y CON 


; wit a ak. AE TNT ee 


; TEST @ 
hov #32, TSTNO 
MOV #TST33, NEXT 
MOV #13, LOCK 
MSTCLR 
SIT #BIT1S, STATI 
BEQ 6$+2 
ISR PC, MEMSET 
5R PC, CLRALL 
ROMCLK 
ror 
MO oe cuooxa> 
ISR PC, RAMDAT 
CMPB sR, R4 
BEG 2$ 

T 5 
SCOP1 
MOV #3$, LOCK 
JSR PC, CLRALL 
ROMCLK 
100403 
ROMCLK 
100000! <400#0> 
JSR PC, RAMDAT 
CMPB sR, R4 
BEQ 4g 

T S 
SCOP1 
MOV #5$, LOCK 
JSR PC,CLRALL 
ROMCLK 
100406 
ROMCLK 
popes! <yo0Ko 
J PC, RAMDAT 
CMPB sea, R4 
BEQ <% 
HLT 5 
SCOP1 
SCOPE 


;R1_ CONTAINS ae DMC1i ADDRESS 


:MASTER CLEAR 
1S IT CRAM? 
:SKIP TEST tf S 
;SET MEM AND R 


NEXT ALL _CONDITIONS 
T_WORD IS INSTRUCTION, 
AT ROM PC=0 


nee, BATA 
iTS ROM PC CORRECT” 


EB om. PC 15 RONG 
ERROR, 1S IF SWO 
'NEW SCOPI 


;CLEAR ALL CONDITIONS 
s NEXT _ e nl alt 


aS T ROM PC=3 
T WORD IS INSTRUCTION, 


; JUMP 10 ROM PC OF O 


;R4=CRAM PC (LSB 8 BITS) 
5E TED DATA 
:IS ROM . CORRECT? 


Y 
“ERROR, CRAM PC IS WRONG 
*LOOP to 3$ IF SWO9=1 
:NEW SCOP1 


;CLEAR ALL CONDITIONS 
NEXT WORD IS INSTRUCTION, 
;START AT ROM PC=6 

iNEXT XT — a a 


faa C OF SeS 
4= azoRen Pe «LSB 8 BITS) 
i ce CORRECT? 
;ERROR, CRAM PC IS WRONG 


:LOOP TO S$ IF SW59=1 
:SCOPE THIS TEST 


ROMCLK PC=S304 
, ROMCLK PC=5304 


ROMCLK PC=S304 
ROMCLK PC=5304 


ROMCLK PC=5304 
RCMCLK PC=S304 


02502 
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DZOMH.P11  O9-DEC-7& 14:59 CRAM JUMP TESTS 
2 een Teer OF TURP CL) ALAAY Thal 33 HLERSKLELERLELKL SLE LESS S FASE 
e383 crea AEST O oF JUNP LAYS. RO-PROCESSOR INSTRUCTION. 
3 te RIFY T D Y CL I TIO 
ogee Hi ne ead i iy ths Tretiction Lens te 
it ma a 8 ory. HE” Aas” SATAY 16 MCORRECT 
i "PgFTB pin “ir ite HE JUMP WAS UNSUCCESSFUL 
30 *THEN PORTY WILL CONTAI 
g 33 Ra AO ld Ok a ee 
2993 ; TEST 33 
cage 7 1ST33: MOV. #33, TSTN 
7 S : it 
GE GE ON a He 
44 0127 1 MOV #13, LOCK 
2998 ; me iRasten cutee BRELT ADDRESS 
Sede AS 3be5 d3e? 100000 001366 eT #BITIS,STATIL {1S if oh aa 
+ 
a ee ee ee 
3004 023670 104414 5 ROMCLK XT WORD IS INSTRUCTION, ROMCLK PC=S304 
023672 100400 100460 iS ART AT ROM PC=0 
74 109414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3007 023676 114777 114377! <400#1> : JUMP TO ROM PC OF 1 
O08 023700 004737 o3ss550 JSR PC, RAMDAT *R4Y=CRAM PC (LSB 8 Arts) 
3009 023704 000377 3 ;EXPECTED DATA 
3010 O23 CMPB sR, RY 315 ROM PC CORRECT? 
3011 023710 001401 BEQ 2$ IF YES 
3012 Oe37le 104005 HLT S ERROR CRAM Pc IS WRONG 
3013 023714 104401 23: SCOP1 : LOOP to. 1$ I F SWO9=1 
3014 0237 16 012737 023724 901220 “ MOV #3$, LOCK NEW SCO 
ste Wee 104414 ; ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5S204 
ota 5 tata Be sSTART OR ROG INSTRUCTION, ROMCLK P¢=S204 
3518 853539 1004 To Sho: «woe JUMP TO et PC : i 
3020 023734 004737 935550 JSR PC, RAMDAT ;RY=CRAM PC (LSB 8 BITS) 
Bh Bind aoe Paar BR 
1 MPB sR, RH 1S CORRECT? 
3023 022744 601401 BEQ 4§ 
ance pea7p 104086 HLT 5 ee Wee PC IS WRONG 
4$: SCOP $100 to 3$ IF SWO9=1 
3026 023752 012737 923769 001220 1 MOV #5$, LOCK OP1 
$56 B53783 owas " ROMCLK 16 xT one 18 INSTRUCTION, ROMCLK PC=S3C4 
Boarea imesit nce NEXT °s ‘ BR TION, ROMCLK PC=5304 
3p30 Asa5e¢ tees Teo cugox ear HOR. “k I a en ene 
2032 023770 004737 o3Ss50 - JSR PC, RAMDAT cena Pe PC LSB 8 BITS) 
re pean a RS,R4 HS Ron Pe’ Gok CORRECT? 
3035 Cex000 001401 BEQ 6$ 
3036 24002 104005 HLT S i BR ROR VER on PC IS WRONG 


2037 024004 104401 oS: SCOP :LOOP to S$ IF SHS9=1 


¢ 


DZ0MH -MACYLI 27( 1006) | ieDEC- -76 16:32 PAGE 60 PAGE: 
OZDMH.P11 O9-DEC-7& 14:59 CRAM JUMP TESTS 

3038 c24008 104400 SCOPE ;SCOPE THIS TEST 

3040 

3941 ¢ REARAARARALAAAA LA SRARAALAAEE TEST 34 4XHRRRSHREAL ALES ELSA ZALES ES 

3543 :¥CRAM TEST JUMP(I) ON C BIT SET MICRO-PROCESSOR INSTRUCTION. 

3043 SET THE C BIT, PERFORM THE JUMP INSTRUCTION, 

3044 4VERIFY THE J dD QccUR Y CLOCKING THE INSRUCTION 

3045 :*IN He LOCATION IT IS AT. THIS INSTRUCTION LOADS THE 

46 i WITH LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 

3047 s THE BR DATA pata IS § MOVED TO 10 PORTH. IF THIS DATA IS CORRECT, 

3048 IF THE JUMP WAS UNSUCCESSFUL 

3049 THEN SORTA WILL CBRTAIN’ 

ae tin lhe NT, i ae 

3058 ; TEST 34 

3054 o24010 012737 O00034 001226 TST34: MOV #34, TSTNO 

3055 024016 012737 O24204 OOle NOV #TST35, NEXT 


#13, LOCK 


flr 
oo 


O240e4 012737 4050 l 
see inal ne on ;R1_ CONTAINS MF aes ADDRESS 
” 


3058 O24032 104412 MSTCLR ;MASTER CLEAR 
3059 024034 032737 100000 001366 BIT #B1T15, STATI S Itc 
3060 O24042 001457 BEQ 6$+2 :SKIP TEST IF NO 
3061 O24044 004737 035654 ISR PC, MEMSET -SET MEM AND RAM 
3082 d240S0 18: 
3063 024050 004737 035476 JSR PC,SETC ;SET THE C BIT’ 
3064 024054 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3065 024056 100400 100400 :START AT ROM 
3066 O24060 104414 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
3087 024062 115377 114377! <400%2> > JUMP TO ROM PC OF 1777 
3068 Oe4064 004737 o35550 JSR PC ,RAMDAT ?R4Y=CRAM PC (LSB 8 BITS) 
3069 024070 000377 377 ‘EXPECTED DATA 
3070 120504 CMPB sé, R4v 15 ROM PC CORRECT? 
3071 024074 61401 BEQ 2$ YE 
3072 024076 104 HLT S ERROR CRAM Pc IS WRONG 
3073 024100 10440) 2S: SCOP1 : LOOP top 1$ 1 F SWO9=1 
3074 O24102 012737 Oe4110 o01220 MOV #3$, LOCK : NEW 
3075 024110 38: 
3076 024110 737 035476 JSR PC,SETC ;SET THE C BIT’ 
3077 O24114 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
Gey i6 100403 100403 ; START AT ROM PC=3 
O98 024120 104414 ROMCLK XT WORD IS INSTRUCTION, ROMCLK PC=S304 
3080 Oe4i22 101000 TOO000! <400%2> :JUMP TO'ROM PC OF 
3081 Gevigs 004737 o3SSS0 ISR PC, RAMDAT sR4=CRAM PC (LSB 8 BITS) 
3082 024130 o00000 0 *EXPECTED DATA 
3083 024132 120504 CMPB sR, R4 15 ROM PC CORRECT? 
3084 devia 1401 BEQ 4 YE 
024136 1 HLT 5 ERROR CRAM Pc IS WRONG 
3086 Of4140 104401 4§: SCOP *LO QoP_to. F SWO9=1 
3087 Oey lve 012737 o24150 001220 is MOV #5$, LOCK NEW SCOP 
shes OBS 024150 004737 035476 ISR PC,SETC ;SET THE C BIT’ 
3090 924154 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
3031 Dey .56 100406 100406 :START AT ROM PC=6 
0 4160 104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
3093 024162 105125 104125! <400%2> : JUMP TO ROM PC OF S25 
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DZDMH MACYil 27(1006) 14-DEC-76 16:32 PAGE 61 PAGE: O20 
OZOMH.P11  O9-DEC-7 14:59 CRAM JUMP TESTS 
34 164 737 935550 ISR PC, RAMDAT :R4=CRAM PC (LSB 8 BITS) 
spac ay 70 nate 136 ‘EXPECTED DATA 
30% 064 0S CHP RS, RM iIs ROM PC CORRECT? 
3822 pesi7s raha BFS iERe VER on PC IS WRONG 
3099 O2e4200 104401 6S: SCOP :LOOP to S$ IF SWS59=1 
es d24202 104400 SCOPE SCOPE THIS TEST 


ean TEST OF TUPCT) ON 2 TEST JS XX AKASAKA LALA ALARA ALE LES 
:#CROM TEST OF JUMP(I) ON Z BIT SET MICRO-PROCESSOR INSTRUCTION. 
:#SET THE 2 BIT, PERFORM THE JUMP INSTRUCTION 

*#VERIFY THE JUMP DID OCCUR BY CLOCKING T HE INSRUCTION 

:#IN THE LOCATION. i S. aT. THIS NSTRUCTION aps. 

:#BR WITH THE L ITS OF THE CRAM PC. HOO s POINT 
:#THE BR DATA is SHEED Bf PORTY. IF THIS SATA IS CORRECT, 

:#THE JUMP WAS SUCCESSFUL, Le THE JUMP WAS UNSUCCESSFUL 


paren PORTY WILL CONTAIN 
SESE SE AE SEE SESE AEE SEE AE SE SE HE ESE HE EE EEE HE HEE HEHEHE EEE EEE EERE EEE 


IOI 0) GI) GG) C0) GD) GI GG) CI GI GI GL 
OO 0 & + 0 bb 2 bo ee 
PO Sw Vor wr DD VFM E wr 


; TEST 35 
4204 012737 9000 122 TST3S: Mov it TNO 
ae 1 ete pode pai see MOV eer de Ne NEXT 
024220 012737 Oe4244 001220 MOV #1$, LOCK 
:R1 CONTAINS BASE DMC11 ADDRESS 

024226 104412 MSTCLR ;MASTER CLEAR DMC11 

024230 032737 100000 001366 BIT #BIT1S,STAT! 31S IT CRAM? 

024 001457 = 6$+2 ik TEST IF NO 

004737 035654 - 5 PC, MEMSET RAM 

3125 O24244 004737 035514 JSR PC,SETZ ;SET THE 2 BIT 
3185 peuced 1oa4i4 ROMCLK Next HgRo ais BY NSTRUCTION, ROMCLK PC=5304 
3128 024254 104414 ROMCLK sNEXT EXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3153 rata lis777 035550 LIsS772 408 bade zc P aol Tie 
3137 Beusey 00379 338 RECTED BATA 
3132 O24%266 120504 CMPB sR, R4 :1S Bone Bc CORRECT? 
3! 024270 001401 BEQ 2 :BR IF YES 
134 Oe4272 TpHODS HLT 5 “ERROR, CRAM PC IS WRONG 
3: be O44 ; 23: SCOP -LOOP fO 1$ IF SWO9=1 
3! Oe4 7% Ole 924304 001220 a MOV #3$, LOCK NEW scoPl 
1 737 035514 J PC,SETZ ;SET THE 2 BIT 
3138 Peat 104414 BSNCLK Feat on 1S INSTRUCTION, ROMCLK PC=5304 
3140 024312 100403 100403 START AT ROM 
3141 O24314 1049414 ROMCLK ‘NEXT WORD IS TNSTRUCTION, ROMCLK PC=S304 
3142 024316 101400 100000! <400%#3> ; JUMP To’ ROM PC 
3143 O24320 004737 o3ss50 JSR PC, RAMDAT 4 =CRAN PC (t (LSB 8 BITS) 
3ide BSys5e 120804 Supe RS,R4 i "iin Pc’ 60 CORRECT? 
3146 024330 001401 BEQ 4g" 
gi47 Deze 1 HLT S BRR ‘ean pc IS WRONG 
148 1 4S: OP1 :LOOP | aN 31 F SwO9=1 
2149 024336 0 


1 
12737 C2e4344 001220 MOV #5$, LOCK :NEW 


peor are EO)! al 16: 
3150 024344 , 
3128 BSqsch TBagig C8852" 
3153 024352 100406 
3154 Q24354 104414 
3155 356 
; ata 360 7. 035550 
31 364 125 
3128 Geaaee 40,901 
3160 37e 104005 
3161 374 104401 
3182 024376 104400 
athe 
ai 
3166 
3167 
3168 
3169 
ait 
3193 
gi73 
in 
2176 
3198 Ge4400 012737 000036 001226 
aia8 feasts pisea? peuada DortSe8 
1 22 104412 
3163 * Gse737 100000 001366 
3185 O24434% 004737 035654 
3186 24440 
3187 Oe4440 004737 O35446 
3188 Oe4444 104414 
318 Geddes 189099 
3191 O2e44S2 116377 
3183 Geuueo Boose 75550 
ue fone thie 
197 0440 
1138 eat 127 024500 001220 
3200 d24500 hd 035446 
3504 Buen tBoudd 
3203 asaeis 104414 
2 BP cons 


32_ PAGE 
CRAM J 


TESTS 
S$: 


$$: 


TST36: 


1$: 


2S: 


M16 


PC,SETZ ;SET THE Z a ORT 


iSTART A 


ROMCLK 
100406 


PAGE: 


ae Se _— ROMCLK PC=5304 


NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


ROMCLK 

Hest eee ;JUMP_TO ROM PC OF 525 
SR PC ,RAMDAT ;R4=CRAM PC (LSB 8 BITS) 
125 EXPECTED DATA 


CMPB sR, R4 ;1S ROM PC CORRECT? 
BEQ 6S F YE 

HLT Ss ERROR, CRAM PC IS WRONG 
SCOP1 ‘LOOP to S$ IF SW59=1 
SCOPE :SCOPE THIS TEST 


; RRRAAAAARAEREREEEREARAAERES TEST JG HeRRRRRRRRE EERE REEL LLL EELS 
;*CRAM_ TEST OF taal? 2 ee MICRO-PROCESSOR INSTRUCTION. 


JUMP INSTRUCTION 
LOCK 


T THE BRO B 
VERIFY THE JUMP’ D CUR BY CLOCKING THE INSRUCTION 
SHIN THE LOCATION IT IS AT. THIS INSTRUCTION LOADS THE 
:*BR WITH THE LOWEST 8 BI T AT THIS POINT 
jATHE BR DATATS MO TO PORTY. IF THIS DATA IS CORRECT, 
xT WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 


}ATHEN PORTS, MILL CONTAIN’ A 37 


RHR H GHA REA AERA ALLA A ARLE AREAL LER LEREAE LAS RLLEEE 


; TEST 36 
Mov #36. TSTNO 
OV s70433 NEXT . 
#15, Lock 
:R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR ;MASTER CLEAR DMC11 
BIT wIT15, STATI -1S IT CRAM? 


;SKIP TEST IF NO 
:SET 


JSR PC, MEMSET MEM AND RAM 

JSR PC, SETBRO ;SET THE BRO BIT’ 

RONCLK Ne eee IS INSTRUCTION, 

ABRCL Rent wono'te INSTRUCTION, 

114377! <4O0#4> : TUNP TO ROM PC OF 1777 

ISR PC, ?RY=CRAM PC (LSB 8 Arts) 
? EXPECTED DAT 

CMPB sR, R4 1s ROM PC CORRECT? 

BEQ 2S" ; I YES 

HLT S :E CRAM PC IS WRONG 

SCOP1 : LOOP Pte. 18 IF SWOS=1 

MOV #3S, LOCK NEW 

BOnC omioeta iREXT. Bris INSTRUCTION, 

plating na RoR pUSs 

ROMCLK aie UORD IS INSTRUCTION, 

100000!<400#4> ; JUMP TO’ ROM 


PC 
JSR PC, RAMDAT :R4=CRAM PC (LSB 8 BITS) 


ROMCLK PC=S304 
ROMCLK PC=S304 


ROMCLK PC=S304 
ROMCLK PC=S304 


0207 


D 


ne 


ne 
& 


MES CisIocicts 
ONWUI£C WH 


3219 
20 


024662 
Oe4664 
024666 
024674 
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ooo000 
120504 
001401 
104005 
104401 
012737 


104005 
104401 
104400 


012737 
012737 
012737 
104412 
032 


001457 
0047 


012737 


BOl 


14-DEC-76 16:32 PAGE 63 
:59 CRAM JUMP TESTS 
0 ;EXPECTED DATA 
CMPB sR, R4 is ROM PC CORRECT? 
BEQ 4s" BR IF YES 
4g: SCOP1 ine 3s IF F siden 
024540 001220 - MOV #5$, LOCK 
035446 SR PC, SETBRO mt THE BRO BIT 
ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100406 *START AT 
ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
104125! <400*4> ; JUMP TO ROM PC OF S2S 
035550 ISR PC, RAMDAT *R4=CRAM PC (LSB 8 BITS) 
125 :EXPECTED DATA 
CMPB sR, R4 *1S ROM PC CORRECT? 
BEQ 6$ ;BR IF YES 
HLT *ERROR, CRAM PC IS WRONG 
6S: SCOP1 “LOOP to S$ IE SWS9=1 
SCOPE :SCOPE THIS TEST 
5 RHLRAAAAEKELERERAERERERERES TEST J7 RRRRRRRERERELE LASER ELE ERE 
*#CRAM TEST OF JUMP(I) ON BRI SET MICRO-PROCESSOR INSTRUCTION. 
: BRI . ORM UMP INSTRUCTION 
:*VERIFY THE JUMP’ DID OCCUR BY CLOCKING THE INSRUCTION 
;#IN THE LOCATION IT IS AT. THIS INSTRUCTION LOADS THE 
*BR WITH THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 
j #THE BR DATA IS MOVED TO PORTY. IF THIS DATA IS CORRECT, 
*THE JUMP SUCCESSFUL, af THE JUMP WAS UNSUCCESSFUL 
{ eTHEN PORTY WILL CONTAIN 
 t snc ousurunseesduosoanescnuansounneoonunsenseuseosenessenauness 
; TEST 37 
000037 001226 TST37: Mov #37, TSTNO 
024770 O01e16 MOV #TST4O, NEXT 
024634 901220 MOV #1$, LOCK 
;R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR “MASTER CLEAR DMC11 
100000 001366 BIT #BIT1S,STATL 31S IT CRAM? 
BEQ og+ :SKIP TEST IF NO 
035654 ms JSR PC, MEMSET >SET MEM AND RAM 
03S4S4 JSR PC, SETBRI ;SET THE BRI BIT’ 
ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
1og#09 :START AT ROM PC= 
McLK * NEXT WORD IS INSTRU! TION, ROMCLK PC=5304 
pets '<400%5> : JUMP TO ROM PC OF 1777 
035550 SR PC, RAMDAT ipuecny Pe (LSB 8 BITS) 
CMPB =saRS,, R4 315 ROM PC CORRECT? 
BEQ 23° F YE 
HLT tER ROR, CRAM PC IS WRONG 
2s: SCOP1 :LOOP to. 1$ IF SWO9=1 
024674 001220 - MOY #3$, LOCK :NEW SCOP] 
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004737 
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035454 


035550 


000040 
025164 
025030 
100000 


035654 
035462 


035550 


001220 


PAGE 64 
CRAM JUMP TESTS 


6S: 


TST4O: 


1$: 


COl 


PAGE: 209 

ISR PC, SETBRI ;SET THE BRI BIT’ 
ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
100403 >START AT ROM PC= 
ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
i #4Q0K5) JUMP TO’ROM PC OF O 
gRo00 ® t ; PC (LSB 8 BITS) 
0 jEXPECT DATA 
CMPB séRS,, R4 215 CORRECT? 
ae CUS i BRROR 
HL S PC IS WRONG 
SCOP1 *LOOP tO 3$ IF SWO9=1 
MOV #5$, LOCK :NEW SCOP1 
JSR PC, SETBRI ;SET THE BR1 BIT’ 
ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
100406 :START AT ROM PC=6 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
104125! <400%5> fae 

4 


“- ee Br Bitsy 


= 


:aIN eIN THE Location. tt 


HSVRLRRKEED EVERERSHRE 
gre TEST OF JUMP(I) ON BRY 
ORM THE JUMP INSTRUCTION 
OCCUR BY CLOCKING THE INSRUCTION 
S AT. THIS I INSTRUCTION LOADS 
BITS OF CRAM PC. 


ae it Pc IS — 


*LOOP to S$ IF SWS9=1 
*SCOPE THIS TEST 


SRRREE TEST 4D SHH KKS ESSE LEE RAKEA KAR KKERES 


SET MICRO-PROCESSOR INSTRUCTION. 


THE 
AT THIS POINT 


its BR DATA IS MOVED ue, PORTY. He THIS DATA IS CORRECT, 
THE JUMP 


JUMP 
t THEN PORTY WILL CONTAIN: 


WAS UNSUCCESSFUL 


Se UDEVERDUSSOSIEESTESSSESETATSREALSEAEAASRANEEEEEAENAEEEEOOEEON " 


hoy #40, TSTNO 
MOV #7ST41, NEXT 
#15, LOCK 
#B1T15,STAT1 
$+2 
PC, MEMSET 
PC, SETBR4 


R K 
114377! <400#6> 
JSR PC, RAMDAT 


& 


1 CONTAINS BASE DMC11 ADDRESS 
inesTER. CLEAR DMC11 
1S IT CRAM? 
SKIP TEST IF_NO 
;SET MEM AND RAM 


;SET_THE BRY BIT’ 

pik INSTRUCTION, ROMCLK PC=5304 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:JUMP_TO ROM PC OF 177 

;R4=CRAM BC (LSB 8 atts) 

EXPECTED DATA 


mr er ee re eee 
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3318 OeS50S2 120504 
3319 025054 001401 
3320 025056 104005 
3321 025060 104401 
3355 025070 — 
3324 sone ak A 
335 Osu7e Ibo 
3327 025100 104414 
3328 Oe510e 1 
3329 025104 004737 
3330 025110 O00 
3331 QeSile 1 
3332 025114 001401 
3333 025116 104005 
3334 025120 104401 
3335 OeSlee 012737 
3336 025130 
3337 025130 004737 
3338 025134 104414 
3339 025136 100406 
3340 025140 104414 
3341 O25142 107125 
3342 025144 737 
3343 025150 000125 
3344 51 120504 
3345 025154 001401 
3346 0251 04005 
3347 025160 104401 
3348 OeSlbe 104409 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
4 

58 
3359 
3360 
3361 
3362 
3363 
3364 025164 012737 
336? 025172 012737 
366 12737 
see 025206 10441 
3369 025210 3745 
3370 OeSe16 001457 
3371 OeSe20 004737 
3372 OeS2e4 
3373 OeS224 004737 
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025070 
035462 


035550 


025130 
035462 


035550 


100000 
035654 
025470 


001220 


001220 


CRAM JUMP TESTS 


2s: 
3$: 


4§: 
S$: 


6S: 


TSTY1: 


1$: 


DOL 


PAGE: 9210 
CMPB sR, RY :1S Ron PC CORRECT? 
BEQ os :BR IF YE 
HLT 5 ;ERROR, CRAM PC IS WRONG 
SCOP1 ‘LOOP *0 1§ IF SWO9=1 
MOV #3$, LOCK :NEW SCOP1 
aORC K eam TET BIg” INSTRUCTION, ROMCLK PC=S304 
100403 iA rh a Bes ic 
OMC NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


ROMCLK 
100000!<400%6> ; JUMP To’ ROM PC OF O 
JSR PC, RAM 


pat ;R4=CRAM PC (LSB 8 BITS) 
0 *EXPECTED DATA 
CMPB ss RS, RY *TS ROM PC CORRECT? 
BEQ 45 *BR IF YES 
HLT 5 “ERROR, CRAM PC IS WRONG 
SCOP1 sLOOP ft to. 2 IF SWO9=1 
MOV #5$, LOCK ?NEW SC 
JSR PC, SETBRY ;SET THE BRY BIT’ 
ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100406 :START A 
ROMCLK *NEXT WORD 1S INSTRUCTION, ROMCLK PC=S304 
104125! <400%6> : JUMP_TO ROM 
JSR PC, RAMDAT ; RY=CRAM PC (LSB 8 BITS) 
125 sEXPECTED DAT 
CMPB sR, R4 *TS ROM PC CORRECT? 
BEQ 3 : YE 
HLT 5 sERROR, CRAM PC _IS WRONG 
SCOP1 *LOOP to’ S$ IF SW59=1 
SCOPE :SCOPE THIS TEST 


j EREEE EEE ERREEERRRRREEEREES TEST _ RHRKAKER REE EEE EEL LE LLLE LES 
#CRAM TEST OF JUMP (T) one Ti SET tii INSTRUCTION. 


THE JUMP INSTRUCTION 
R BY CLOCKING THE TNSRUCTION 
‘ THIS INSTRUCTION. L THE 
14BR WITH THE LOWEST @ BITS OF THE CRAM PC. AT THIS POINT 


Bate TEL? Pei i i BESO 
N PORTY WILL CONT 


spon ln ated. lee SE TE NE AIR RIT 
; TEST 41 


ov #41, TSTNO 
MOV #TST42, NEXT 


MOV #15, LOCK 
;R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR *MASTER CLEAR DMC11 
BIT #B1T15,STAT! 31S IT CRAM? 
REQ 6$+2 :SKIP TEST IF NO 
ISR PC, MEMSET SET MEM AND RAM 


JSR PC, SETBR7 ;SET THE BR? BIT’ 


—_— a a me ee ee 


\ ee 27( 1006) 
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a fee iti 
11 
ie] O2eSe40 004737 035550 
Ba Best 
3381 O2SeS0 001401 
3384 oe 012737 025264 001220 
at 
1 
ae ed 1 
3390 025276 1034 . 
3391 025300 0047 035550 
3392 025304 00 
Ba ies 

3396 025314 104401 
3397 025316 012737 925324 001220 
3398 O0eS 
3399 004737 035470 
3400 025330 104414 
3401 100406 
3402 025334 104414 
3403 025336 107525 

404 40 por 32 035550 

OS O1es 
a 025346 hated 
ie fees (hae 
3409 625354 104401 
3410 025356 104400 
3411 
3412 
3413 
mie 
zi 
aii? 

418 
3419 
3420 
3421 
Hee 
3423 
3424 
3425 
a5 


025360 012737 oO0004e 001226 
025366 012737 Oesss4 O0lel6 
te 025374 012737 OeS4e0 001220 
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759 CRAM JUMP TESTS 


2s: 
3$: 


4§: 
S$: 


6$: 


TSTYe: 


EO] 


PAGE: 
ROMCLK sNEXT WORD 1S INSTRUCTION, ROMCLK PC=S304 
SOCK en ge SIN N STR TION, ROMCLK PC=5304 
Ro oe uppx7> EXE WORE A pe ar ita, : 
IER PC, RAMDAT : acRAl PC PC {LSB 8 BITS) 
CMPB =saRS,, R4 e SRO PcG CORRECT? 
ort es iB BPN PC_IS WRONG 
they te an 1S IF SWO9=1 
MOV #3$, LOCK 
JSR PC, SETBR7 et THE BR7 BIT’ 
ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100403 ; START A T ROM PC= =3 
ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
100000!<400%7> ;JUMP TO’ROM PC OF 
JSR PC, RAMDAT ;R4=CRAM PC (LSB 8 BITS) 
‘EXPECTED DATA 
CMPB.=—saRS,, RY *TS ROM PC CORRECT? 
BEQ 4 BR S 
HLT S RR RAM PC IS WRONG 
SCOP1 sLOOP fo 0 3s IF SWO9=1 
MOV #5$, LOCK * NEW 
ISR PC, SETBR7 ;SET THE BR7 BIT 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100406 :START AT ROM PC=6 
ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
104125! <400%7> : JUMP TO ROM PC OF S2S 
JSR PC, RAMDAT ; RUSCRAN PC (LSB 8 BITS) 
5 ‘EXPECTED DATA 
CMPB =sRS, R4 15 ROM PC CORRECT? 
BEQ ee :BR IF YE 
HL sERR ¢ an PC IS WRONG 
SCOP P fo S$ IF SWS9=1 
SCOPE iL OOPE THIS TEST 


5 RELA AAARERRARRERRRREEEEE TEST YO RRRRRRHREEE EERE EEA LLLLELEES 
=a er or JUMP(I) ON C_BIT SET MICRO-PROCESSOR INSTRUCTION. 
Pe" C BIT, PERFORM THE JUMP INSTRUCTION 
HE JUMP’DID NOT OCCUR BY CLOCKING THE’ INSTRUCTION 


2 Ta ie dt G°eits OF tue Caan PC. at This Oran 


THIS DATA IS CORRECT 
BR " es 12 CORRECT. THe Bhan PC IS NOT RIGHT, 
THE Gna pc 8 CORRECT, 

pte el at Tener om LE ATS LTT RA AM I 


; TEST 42 
hoy #42, TSTNO 
MOV #7ST43, NEXT 
MOV #1$, LOCK 
:R1 CONTAINS BASE DMC11 ADDRESS 


0211 
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104412 
032737 
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100000 
0356S4 
035430 


035550 


025460 
035430 


035550 


025520 
035430 


035550 


001366 


001220 


O01eec 


CRAM JUMP TESTS 


1$: 


es: 
3$: 


4§: 
5$: 


6$: 


FOL 


PAGE: 

MSTCLR ;MASTER CLEAR DMC11 
BIT #B1T15,STATI IT CRAM? 
BEQ 6$+2 sSKIP Bis EST IF No NO 
JSR PC, MEMSET :SET 
JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
100400 *START AT ROM PC= 
ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
114377! <400%2> JUMP TO ROM PC OF 1777 
JSR PC, RAMDAT *R4=CRAM PC (LSB 8 BITS) 

*EXPECTEL) DATA 
CMPB sR, RY TS ROM FC CORRECT? 
BEQ 23° BR IF 
HLT S *ERROR, CRAM PC IS WRONG 
SCOP1 iLOOP | to. 18 IF SWO9=1 
MOV #3$, LOCK ‘NEW 
JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
ROMCLK ?NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100403 ; START AT Pc= 
ROMCLK XT WORD = INSTRUCTION, ROMCLK PC=5304 
1OO00D! <400*2> JUMP TO’R 
ISR PC, RAMDAT ;R4=CRAM PC (LSB 8 BITS) 
y ?EXPECTED DATA 
CMPB sR, RH 15 ROM PC CORRECT? 
BEO 4g YE 
HLT S SERROR CRAM PC IS WRONG 
SCOP1 LOOP to. 3s IF SWO9=1 
MOV #5$, LOCK NEW SCO. 
JSR PC, CLRALL ; CLEAR ALL CONDITIONS 
ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100406 START A 
ROMCLK FT LORD IS INSTRUCTION, ROMCLK PC=5304 
104125! <400%2> : JUMP TO ROM PC OF Ses 
JSR PC, RAMDAT *R4=CRAM PC (LSB 8 BITS) 
? :EXPECTED DAT 
CMPB sé, R44 :IS ROM PC CORRECT? 
BEQ 6S ?BR IF YES 
HLT 5 jERROR CRAM PC IS WRONG 
SCOP oop to S$ IF SW59=1 
SCOPE COPE THIS TEST 


; RERRARAREREERERERERRERELES TEST 4S SeeRERRELERARE EERE EE EEE ARLE 
ie TEST OF JUMP(I) ON Z BIT SET INSTRUCTION. INSTRUCTION. 


* T T, PERFORM THE JUMP INSTRUCTION 
;#VERIFY THE JUMP DID NOT OCCUR BY oonins THE INSTRUCTION 


; H OF THE CRAM PC. AT THIS POI 
;*THE BR By IS MOVED TO PORTH. IF THIS DATA IS CORRECT 
;*THE CRAM PC hae Siw Y IF THE CRAM PC IS NOT RIGHT, 
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S54 
S62 
025570 


104401 


702 
ast Seerht Apso) 
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8 
CRAM JUMP TESTS 


100096 
035654 
035430 


035550 


02S6S4 
035430 


001220 


035550 


025714 
035430 


001220 


035550 


TST43: 


es: 
3$: 


4$: 
S$: 


6S: 


GO1 


; TEST 43 


#43, TSTNO 
MOV #TST44 NEXT 
MOV #1$,LOCK 
wIT1S,STATL 
PC, MEMSET 
JSR PC, CLRALL 


ROMCLK 

114377! <400*3> 
JSR PC, RAMDAT 
CMPB sR, R4~ 

BEQ oy 

HLT 5 

SCOP! 

OV #3$, LOCK 
JSR PC, CLRALL 
ROMCLK 
100403 
ROMCLK 
100000! <400%3> 
JSR PC, RAMDAT 
CMPB sR, RY 
BEQ 4S 
HLT 
SCOP1 

OV #5$, LOCK 
JSR PC,CLRALL 
ROMCLK 
100406 
Rou pst <uo0%3> 
JSR PC, RAMDAT 
CMPB—saRS,, R4 
BEQ 3 
HLT 
SCOP1 
SCOPE 


s 


PAGE: 
;R1_ CONTAINS = Ss ADDRESS 
: MAST ER CLEAR DMC 
-1S IT CRAM? g 


:SKIP TEST FF ye 
;SET MEM AND R 


ng ALL CONDITIONS 
1 ee IS INSTRUCTION, ROMCLK PC=S304 
START 8 OM 


T ROM PC= 
T WORD IS PETRIE, ROMCLK PC=S304 
TO ROM PC OF 1777 
Pal PC (LSB 8 afTs) 


: S 
: ERROR CRAM pC IS WRONG 
i gu to 1S I F SWO9=1 


;CLEAR ALL CONDITIO 
;NEXT WORD IS INSTRUCTION, 
; START AT C= 

XT_ WORD IS INSTRUCTION, 


ROMCLK PC=5204 
ROMCLK PC=5304 


; JUMP To’ ROM PC OF O 


;R4=CRAM PC i 8 BITS} 
EXPECTED DATA 
iis oan CORRECT? 


ERROR, CRAM PC IS WRONG 
iL oor fe. to 3s IF SWO9=1 


om ALL CONDITIONS 
:NEXT a bs INSTRUCTION, 


START A PC=6 

sNEXT ExT WORD. is paNSTRUCTION, 
+ RuMCRAM PC (LSB 8 BITS) 

EXPECTED DA 

15 ROM PC CORRECT? 

;ERR CRAM PC_IS WRONG 


FERRO S$ IF SW59=1 
-SCOPE THIS TEST 


ROMCLK PC=S304 
ROMCLK PC=S304 


5 RERKLARRLLRERALRERELEREEEES TEST YY ReRRRRRERRRARERAEEEREREERES 
3 #CRAM TEST OF + tee a. +. SET MICRO-PROCESSOR INSTRUCTION. 


LEAR THE BRO B 


UMP 


; #C RFORM THE J INSTRUCTION 
;*VERIFY THE JUMP Thto. NOT OCCUR BY CLOCKING THE INSTRUCTION 
-*#IN THE LOCATION IT IS AT. THIS INSTRUCTION LOADS THE 


G2i2 
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012737 
012737 
012737 
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4:59 CRAM JUMP TESTS 


000044 001226 TST44: 
026144 001216 
026010 001220 
100000 001366 
035654 

1$: 
035430 
035550 

2S: 
026050 001220 - 
035430 : 
035550 

4§: 
026110 001220 we 
035430 7 
035550 

63: 


HO 1 


;*BR WITH THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 
;*THE BR DATA IS Peet TO aa e IF THIS DATA IS CORRECT 


;*THE CRAM PC 


S 
tte oar obihine. fee 


THE CRAM PC IS NOT RIGHT, 


5 RHRLERERLARALEARE AALS ALARA LAL ARLE RELA RALAEL ERE RA LEELA LL ALLELES 


Mov #44, TSTNO 
MOV #TST4S, NEXT 


MOY #15, LOCK 
MSTCLR 
BIT #81715, STAT! 
EQ 6$+2 
ISR PC, MEMSET 
SR PC, CLRALL 
ROMCLK 
p0400 
OMCLK 
114377! «4004 
JSR PC, 
CMPB sR, R4 
BEQ ro} 
HLT 5 
SCOP1 
MOV #3$, LOCK 
JSR PC, CLRALL 
ROMCLK 
100403 
ROMCLK 
100000! <400%#4> 
JSR PC, RAMDAT 
CMPB sR, R4 
BEG ug 
HLT 
SCOP 
OV #5$, LOCK 
ISR PC,CLRALL 
R NCL 
100406 
ROMCLK 
104125! «4Q0x4» 
J R PC, RAMDAT 
CMPB Re, RM 
BEQ 6 
HLT 
SCOP1 
SCOPE 


CONTAINS BASE om ADDRESS 
inaSTER Ny DMC1 


dep reer TEST tF NO 
SET MEM AND RAM 


;CLEAR ALL CONDITIONS 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

:START AT ROM PC= 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
ROM PC 1777 


: JUMP_ TO OF 
>R4=CRAM (LSB g BITS) 
SEXPECTED DAT 

-IS ROM PC CORRECT? 

*BR IF YES 

ERROR cRaM Pc IS WRONG 
:LOOP to. F SWO9=1 
NEW SCOP 


;CLEAR ALL CONDITIONS 
;NEXT WORD IS INSTRUCTION, 
:START AT ROM PC=3 

NEXT WORD IS INSTRUCTION, 


ROMCLK PC=5304 
ROMCLK PC=S304 


. JUMP TO’ROM PC OF O 


3 RU=CRAM PC (LSB 8 BITS) 


*ERROR, CRAM PC_IS WRONG 
*LOOP P to 3 3$ IF SWO9=1 


;CLEAR ALL CONDITIONS 
NSTRUCTION, 


NEXT als IN ROMCLK PC=5304 
;START AT =6 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
R4= Bec 8 BITS) 
71S R CORRECT? 

Bi YE 


one varie 
i ne test 


0214 
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OO004S O0lece 
026340 O0lels 
026204 001220 
100000 


035654 
035430 


001366 


035550 


026244 
035430 


001220 


035550 


026304 
035430 


001220 


035550 


CRAM JUMP TESTS 


TST4S: 


1$: 


2s: 
3S: 


4$: 
S$: 


I01 


PAGE: 


5 RRRERA AEE EER REEL EEE REEEE EE "eat Pie tttttitiittttttttttttiitt 
I) ON BR1 SET MICRO-PROCESSOR INSTRUCTION. 
pto Ror Oc 


NOT BCCUR BY CLOCKING THE INSTRUCTION 
T IS AT. THIS INST 


Ratton 
bd oli ‘ead Bhat? a ao ae 


Hi! CRAM pC : 5 1SORRECT. 1 IF THE CRAM PC IS NOT 
; s pion lh Di LE Te Mane 
; TEST 45 
MoV #45, TSTNO 
MOV #TST46, NEXT 
MOV #1$, LOCK 
:R1 CONTAINS BASE OMCLI ADDRESS 
MSTCLR sMaST ER oGbEBR DMC11 


wO1T15, STATI 


SP TEST IF NO NO 


, MEMSET 

R PC, CLR 0 ON 
Rohl mien INET WORD 18 1S INSTAL Tron, ROMCLK PC=5304 
ROMCLK RENT ON, ROMCLK PC=5304 
Poss. cupoxs> Pad OM Fede! RUC 
JSR PC, RAMDAT Bue CRAR PC (LSB 8 BITS) 
1 spaPECIED DATA 
CMPB =—SsaRXS, R49 OM PC CORRECT? 
BEQ 2s YES 
HLT 5 BR CRAM PC IS WRONG 
SCOP1 LOOP. P to. 18 IF SWO9=1 
MOV #35, LOCK NEW S 
JSR PC, CLRALL ONDITIO 
ROMCLK °° REMI 1 Inst AUCTION, ROMCLK PC=S304 
100403 START AT R 
ROMCLK T WORD ts INSTRUCTION, ROMCLK PC=S5304 
100000!<400*5> _; JUMP To’ Ror PC OF O 
ISR PC, RAMDAT sR4=CRAM PC (LSB 8 BITS) 
y EXPECTED 
cnPe RS,R4 iI ROM P PC CORRECT? 
HLT 5 icra Pct WRONG 
SCOP1 ls Ba to-38 
MOV #5$, LOCK 

SR PC, CLRALL iG EAR COND TIONS 
OMCLK XT WORD IS INSTRUCTION, ROMCLK PC=5304 
00406 “START AT 
ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
104125! «400«5> *JUMP TO ROM PC OF S2 
JSR PC, RAMDAT ?R4=CRAM PC (LSB 8 BITS) 

‘EXPECTED DATA 


0215 
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026326 
026330 


026336 


120504 
plone 
1 1 
104406 


012737 


ais? 


Ba 


035654 
035430 


035559 


026440 
035430 


035550 


026500 
035430 


001226 
001826 


001366 


001220 


001220 
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$9 CRAM Tue TESTS 


6$: 


TST4E: 


1$: 


2s: 
3S: 


4S: 
S$: 


PAGE: O21e 
CMPB =—sR'S,, R4 :IS ROM PC CORRECT? 
BEQ 6S ;BR IF YES 
HLT S *ERROR, CRAM PC_IS WRONG 
SCOP1 *LOOP to S$ IF SW59=1 
SCOPE “SCOPE THIS TEST 


; RHRRREEEEEAREEREELRREREEELE TEST HERRAE ELLA E KALLA LAR ER LELES 
;#CRAM TEST OF ae I) ON BRY SET MICRO-PROCESSOR INSTRUCTION. 


;#CLEAR THE BRY PERFORM THE TUNE 
SHVERIFY THE J Thto NOT OCCUR BY CL OGkING THE? INSTRUCTION 


ON P LOADS THE 
BR WITH THE LOWEST 8 1 on THE CRAM PC. AT THIS POINT 


ante eRaN NPC pc fe comet, TF IF THE RAN" g Pe Not Richi. ¢ 


ETRE BORTH CONTAI 
wd Ann AY ORT EOL Abt. 


; TEST 46 

ov #46, TSTNO 
MOV ate ines NEXT 
MOV 


ani ;R1 CONTAINS BASE OMCL1 ADDRESS 
Het #BIT15,STATI : 


#2 BEfenser «ETP ath ind 


JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
ROMCLK * NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100400 START A =0 
ROMCLK, io. sNEXT urn 1S INSTRUCTION, ROMCLK PC=5304 
18h PECREMOA ?R4=CRAM Bet Pep 8 BITS) 
*EXPECTED DATA 

énpe RS,R4Y *1S ROM PC CORRECT? 
BEQ 2$ BR IF YES 

S sERROR, CRAM PC_IS WRONG 
oh OP2 : LOOP ofp 18 IF SWO9=1 
MOV #3$, LOCK > NEW 

RALL N 

BBNCLK Pee FRET MORD 18 theTRuc TION, ROMCLK PC=S304 
100403 :ST ART A 
ROMCLK iNEXT worD” ° INSTRUCTION, ROMCLK PC=5304 
100000! <400%6> ;JUMP TO’ROM 
JSR PC, RANDAT j RUSCRAN PC (LSB 8 BITS) 
CMPB sR, Rv Is R ¢ CORRECT? 
Gee . “chant P WRONG 
SCOP1 ley to. $$ 1 Poca gt 
MOV #5$, LOCK 
JSR PC, CLRALL ea ALL CONDITIONS 
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710 1044 
71? GBesbe Bode 
a7l¢ peed a 
iy Bees Opa? 
aie beeees apse 
3717 OebSe4 sBrs01 
3718 026526 104005 
37193 6530 104401 
3720 6532 10440 
37e1 
3722 
i 
3725 
3759 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 026534 012737 
3737 Oe6S42 012737 
37 0265 012737 
Lia 026556 Maal 
Soup Geesee Bai4s7 
3743 70 0047 
3744 574 
3745 026574 004737 
- 3746 026600 104414 
374g ibeT4 
104414 
3743 Oeb605 11777 
set Beeels Ob008, 
3752 O2b616 aed 
3755 Oe66e4% 104401 
3756 Oeb62e6 012737 
3757 0266 
3758 0266 004737 
3759 026640 104414 
spo 42 100403 
61 peat 
es aga79 
3764 Oe6654 000004 
3765 O26656 120504 


14-DEC-76 16:32 PAGE 
:S9 


72 
CRAM JUMP TESTS 


035550 


000047 (001226 
po tele 
00122 


001366 


035550 


026634 
035430 


901220 


035550 


6S: 


TST4?: 


1$: 


2s: 
3$: 


KO1 


PAGE: 


Ne ER ae — ROMCLK PC=S304 


le 


ROMCL NEXT WORD IS INST TION, ROMCLK PC=5304 
Iovi25!<agoxs» : JUMP TO ROM PC OF 

JSR PC, RAMDAT ; RH=CRAM PC (L538 8 BITS) 

? -EXPECTED DATA 

CMPB sR, R4 *TS ROM PC CORRECT? 

BEQ 6$ ‘oR IF YES 

HLT S “ERROR, CRAM PC_IS WRONG 

SCOP1 “LOOP To 5$ IF SW59=1 

SCOPE “SCOPE THIS TEST 


Peg 8 yt “Bk SE 47 ABUSSSABEAS AMER AES ARTE AN EEE 
boy? be 4 oe ae bat arti oe INSTRUCTION. 


HOH SSA, ine CONN ai 


T THIS POINT 
WOR DATA re Wee vED a Bopry He es PeaTA 1S CORRECT 
RAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 
es PORT4Y CONTAINS A 37 
© LKKKLRAKAAL AKA KE KERALA ARAL KALLA ALAA AA RARER ELA LAA KALA AAA EAA KE 


0217 


; TEST 47 
Mov #47, TSTNO 
MOV #TSTSO, NEXT 
MOV #15, LOCK 
;R1 CONTAINS BASE DMC11 ADDRESS 

MSTCLR erris stat: ffe-rtrceae tt 

4 Hse) ' : 1p TEST IF NO 

SR PC, MEMSET -SET MEM AND RAM 
JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
ROMCLK NEXT WORD Bt INSTRUCTION, ROMCLK PC=5204 
100400 START AT 
ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
dae 5 om oO ee 
1 e 43 Rep bata 
CMPB =—saRXS,, RY :IS ROM PC CORRECT? 
BEG $ jBR IF YES 
HL CRAM PC IS WRONG 
SCOP1 iLOOP ft to. 18 IF SWO9=1 
MOV #3, LOCK *NEW SC 
JSR PC, CLRALL Ce EAR ALL CONDITIONS 
ROMCLK XT WORD IS INSTRUCTION, ROMCLK PC=S304 

10403 START AT ROM PC=3 

F WORD IS INSTRUCTION, ROMCLK PC=5304 


jo “BeyRanoAY r phat 


CNPE 


a 8 BITS) 


RS,R4 ig PRON 2 PCORRECT? 


me a re me em re es ee 


LO1 
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3766 O26660 001401 BEQ 4§ ;BR_IF YES 
3767 Oeb66e 104005 HLT 5 sERROR a pe IS WRONG 
3768 O26664 104401 4§: SCOP 1 : LOOP t0. Q F SWO9=} 
37639 O26666 012737 O26674 001220 MOV #S$,LOCK : NEW ScoP 
3779 026674 S$: 
3354 naa eae — Rohe redone irEeoR ORD COPNSTRUCTION, ROMCLK PC=S304 
3773 702 100406 aD Saar ah Ror BMT 

026704 hee Wea Ses c400E7> TUNP ye oh INSTRUCTION, ROMCLK PC=S304 
302° BSertB 1O7353 035550 58h PC ,RAMDAT R4=CRAM PC (LSB 8 BtFs) 
3777 026714 000007 7 : EXPECTED DATA 
3778 pee? 16 capt ces aa 31S a Pe CORRECT? 
a8 p5es59 pact pre : i BRROR ‘EB om AM PC IS WRONG 
3781 O267e4% 104401 65: SCOP1 * LOOP to IF SWS9=1 
3782 026726 104400 SCOPE : SCOPE THIS TEST 
3783 
338d ‘ eee nate TEST SO 44HXHHHHHHH HARE REE RAE REE E EEE 

3 # 
3787 FL ay A. RESSAGE AND VE VERIFY HE RECEIVED DATA 
#IF NO S ON LINE UNIT LOOP IS Ah 


eB ia ie fie di “u"itsHt To" BER OR ‘ae 
Mocha ieewan wha 


a crabebhnalinadnaskebneiponseinannnatanmanimenensnemiemnanii 


026730 012737 O000SO o01226 _ TSTSO: Mov #50, TSTNO 
026736 012737 027742 O0l2l6 MOV #TSTS1, NEXT 
sR1 CONTAINS BASE OMC11 ADDRESS 


SSeS P Ree Reeen ree 
B 
z 
: 


T *MASTER CLEAR DMCL: 
teers ; 100000 001366 BIT 81715, »STATL «=; re MC? 
Le 000001 901372 BIT #BITO, STATS *KMC WITH BITO SET? 
tee pois 5 sn WF tee 
137 027740 IMP: =: 14S int TE 
G30732 010000 001366 BIT ealni2, STATL PRESENT? 
1 BNE -12 NO 
19 Serine Bisrh Geares my RSM ia RecelVeR BurER 
re 034762 MOV SAUER we LEAR 0 a BUFFER 
i 10$:  CLRB  (Red+ 
14 DEC RO 
Scie Ger0a8 Seana? eye CTF eaG Ber TFLAG TO 
315 aaa neat CLR RFLAG SET eRe TO 
3818 027040 012711 O40000 MOV #81714, (RI) CLEAR 
pie a2 100000 001366 giT s8}T5, "STATI ak 


#B1T15, (RL) IF cRAN SET RUN 


8 
oO 
hes 
tT 
N“ 
ta 
r— 
— 
3 
= 
o 
<= 
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3822 027060 105227 
aa ie Bae 
3825 berore 005711 
3826 027074 100405 
3827 027076 
3828 102 001373 
3829 ‘thy ag 104014 
a Bik Be 
3832 027116 001002 
ee Bis fl 
1 15e711 
383S 027130 0050 
338 134 105711 
3838 1a bose37 
3839 001373 
st is i 
Sou pos0e! 
3843 142711 
3846 A 
3847 005237 


Sain 
Se NSNNEed 


SAG 5 
an & 
—— 
—— 


142711 


aS 
SaQeacct 


— — 
Bee 


S33 
ee ph 
—— = 


= 
ree 


SIS aO SOHO TOTES issues 
3 
RS 


: 


SSSSsateee GREER Raw UMNOeSS 


tes Bese 
= 


— 16:32 PAGE 7 


FREE RUNNING TESTS 


000000 
001416 


001416 


040000 001366 
40 

BoooNS 

001416 

001416 


oooc04 


001e5e 
000006 001254 


7e6 Do00d6 


1$: 


2s: 


18S: 
8$: 


64S: 


65S: 


4§: 


S$: 


INCB #0 
BNE Po 
CLR TEMP 
TST (R1) 
BMI .+14 
INC TEMP 
BNE 4 
HLT 


Bir dr, STATI 
BNE 


Ba ey #43, 1 ig (R1) 


CLR TEMP 
TSTB (R1) 
BMI .+12 
INC TEMP 
BNE 2s 
HLT 14 


MOV -WBASE,4(R1) 
R1) 


b( 
BICB ~—s_«-#4O, (R11) 
CLR TEMP 
TSTB ss (RIL) 
BPL 8S 
INC TEMP 
3$ 
TSTB 2(R1) 
BPL I 
MOV 4(R1), TEMPS 
MOV 6(R1), 
HLT 16 
IMP 14S 
HLT 14 
BISB = #41, (RI) 
TST (R13 
. 64 
L 6(RI 
BICB —- #40, (RL) 
TST (RLS 
BMI 65 
BIS6 #44, (RL) 
ak Tee 
TBs ECR 
I +12 
INC TEMP 
4 
Ht 14 
V #RBUF ,4(R1) 
MOV RCOUNT.6(R1) 
BIcaB ~=—s.-s- #40, (RI) 
TES 
TBs CAD 
+1 
INC TEMP 


ie IF 
T LINE UNIT LOOP 


Get SET TO DELAY 
iBR IF YEs 
DELA 


DONE 
A CNTL 0 ERROR 


SAVE SEL4Y FOR TYPEOUT 
Sie SEL6 FOR TYPEOQUT 
L 0 ERROR 
FA TAL ERROR STOP 
sERROR RDI STILL SET 


;ASK_FOR CNTL I 
WA ROI 


iBR IE YE 


4 
f T TO DELAY 
Gee 


Y 
1F DELAY NOT DONE 
ERROR RDI _NOT SET 
LOAD REC BA 
;LOBD ee oun 


el ser 10 DELAY 


BR IF YES 
SINC DELAY 


me mm a ee ee ee + es 
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Boisie 


001416 


— 


714 900004 
712 000006 


141 


= 


001416 


001246 


aa aa 
REELED EPP 


See eee eee 
WO NOUN © Wire © 
ae 


eee 


6S: 


175: 


_ 128: 


138: 


FREE RUNNING TESTS 


1 
21), Tee 


14 
oe] te,2cRh) 


TFLAG 
+4 


i4 . 
#-1, TFLAG 
wa 1f0, 2(R1) 


i4 

#TBUF ,4(R1) 

+4 

i4 

TCOUNT , 6(R1) 

+4 

i4 

#207,2(R1) 
LAG 

+4 

14 

#-1,RFLAG 

#0110, 2cR1) 


iy. 
#RBUF ,4(R1) 
+4 


PAGE: 0220 


STILL SET 


ve “pans 
aa 


:BR IF NO 


cea ey 


RDO ’ 
I Es 
:BR IF DELAY NOT DONE 


tea Bone 


DELAY 
T SET 


ic SEL2 = O8reee! 
iREC OR. ld ‘ 


;FIRST Tine WERE? 


oie ie TIPLE XMIT DONES 
SET TFLAG 


iba U? eR IF o 0 
EMIT BA CORRECT? 
3k OR 

on AF 
1 COUNT ERROR 
Pra RDO AND BITS 0-2 
ia ME HERE? 

T C DONES 

fi Ref PALE REC D 
1S IT CNTL O 


NO 
RECEIVE ERROR 
REC BA CORRECT? 

;BR IF YES 
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012737 
012737 
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034760 


000207 
03471C 


034706 


000051 
030170 
100000 
000001 


030152 
010000 


035602 


036002 
036272 


000010 
000010 
001416 
000002 


001416 
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000006 


ooo0de 


001226 
001216 


001366 
001372 


001366 


PAGE 76 


9$: 


15S: 


14S: 


TSTS1: 


1$: 


B0e 


PAGE: 


;REC BA ERROR 
“COUNT OK? 
:BR IF YES 
sREC COUN ERROR 
T TO CHECK DATA, 
ie Paine 1 Sa. 
*R3 POINTS TO RECEIVE DATA 

;SAVE ADDR ADDRESS FOR TYPEOUT 
:RS = TA 
RY = RECEIVE DATA 
; CHECK DATA 

OK 

‘DATA ERROR 
; DEC COUNT 
iBR IF NOT DONE 

THIS SHOULD BE O, ELSE 
IT RECEIVED TO MUCHTS 


: ERROR 

;CLEAR RDO AND BITS 0-2 
;BR IF NO. 
:XMIT_DONE? 
BR IF NO 

SCOPE THIS TEST 


j SHARRRRARAREARARRRARARRRERES TEST 5] RRRRRARRRERARERERA SEER EEE ES 


ING 
ABLE, VERIFY 


MODE sO MESSAGE A NO_RECEIVE 


RRUN ERROR OCCURS 


THAT AN O 
j TAOSESUSEESASTEGAESSSEESOUSESSEESSUESSSELESEESESSSO SS HEEEESESE 


HLT 14 
CMP RCOUNT , 6(R1) 
BEQ +4 

HLT i4 

Nov RCOUNT RO 
MOV REUE’ 

MOV R3, TEMP3 
MOVB = (R2)4,R 
MOVB = (R3)+/R4 
CMPB sR. R4 

BEQ +4 

HLT i3 

DEC RO 

BNE 9 

TST (R3) 

BEQ +4 

HLT i4 

BICB #207,2(R1) 
TST RFLAG 

BEQ 16$ 

TST TFLAG 

BEQ 16$ 

SCOPE 

; #OVE 

*IN FREE RUNNIN 

; #BUFFER AVAIL 

; TEST Sl 
Mov #51. TSTNO 
MOV #TStS2, NEXT 
MSTCLR 
BIT #BIT15,STATL 
BEQ +1 
BIT #BITO,STAT3 
BNE +6 
IMP 10$ 
BIT #81712,STATL 
BNE -12 
ISR PC, WROM 
ISR PC; BASELD 
JSR RS; XFRELD 
TBUF 
44 
MOV #10,RO 
MOV #10'R3 
CLR TEMP 
TSTB—s- BCR) 
BMI - +20 

INC TEMP 


ONTAINS adh DMC11 ADCRESS 
? 


;BR 
;KMC WITH BITO SET? 
;BR IF Y 

;SKIP_ TEST 

bu PRESENT? 
;BR_IF NO 

* WRITE gry: IN CRAM 


jLORD MC BASE ADDRESS 
sLOAD xmt Baer 


;CC 

oe By 3+ aimee COUNT 
Cre AR DELAY COUNTER 

315 RDY 0 SET? 


INC DELAY COUNTER 


0221 


me | eee ee 
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3990 030062 001372 
39391 030064 005303 
3932 030066 001370 
3993 030970 104014 
3994 030072 O004e7 
3399S 030074 i32761 
39968 030102 001002 
39397 030104 104014 
3998 030106 O004el 
39399 030110 012705 
ono 030114 104 
1 030120 
4902 O30l2e2 001404 
4003 030124 0227 
4004 0Q030130 O01411 
400S 030132 104015 
oF penta 042761 
ie 
sour able 
40039 C301S0 001337 
4010 QO30152 1044 
4011 QO30154 042761 
4O0le 030162 005037 
4013 030166 000730 
4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 030170 012737 
4025S 030176 012737 
4027 030204 104412 
4028 030206 032737 
4029 030214 OO14O6 
4030 030216 032737 
4031 030224% 001002 
35 030226 000137 
wos soe) Disre 
oss enews oir 
W037 Oates? Q0ie30 
40339 030260 000020 
4040 Q30262 004537 
ma 030266 034714 
wove Oaoe7) ooo 
4044 030276 005037 
4045 030302 105761 


000001 
oooco4 
000006 
900001 


000207 
001416 


000207 
001416 
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ooo0te 


000002 


oo000e 


001226 
001216 


001366 
001372 


001366 


PAGE 77 


TSTSe: 


1$: 


BNE 1$ 
DEC R3 

BNE 1$ 

HLT 14 

BR 10$ 

BITB #81T0,2(R1) 
BNE 118 

HLT 

BR OS 

MOV #81T2,RS 
MOV 6(R1),R4 
CMP SRY 

eo i 

BEQ 3$ 

HLT 15 

BIC #207, 2(R1) 
CLR TEMP 

DEC RO 

BNE 1$ 

SCOPE 

BIC #207, 2(R1) 
CLR TEMP 


;BR IF NOT DONE. DELAY 
AY COUNT 


:DEC 
BR IF DELAY NOT DONE 
3 ERROR Mad 0 NOT SET 


GE 
iis IT CNTL 0? 
“ERROR, NOT CNTL 0 
: CONTINUE 
“PUT “EXPECTED” IN RS 
PUT “FOUND” IN 
i1S ORUN SET? 
BR IF YES 

DATA CK ERROR? 
*BR IF YES 
ERROR, ORUN NOT SET 
“CLEAR RDO 
eel DELAY 

C RETRANS COUNT 
: COUNT 
:SCOPE THIS TEST 
: IGNOR THIS ERROR 
RESET DELA 
CONTINUE 


j RERERRRLARELARARARRRRARHRKE TEST SO RRRRRERRERRAEKELERERE REELS 


;#L0ST DAT 


RUNNING MODE SEND A MESSAGE LONGER THAN THE RECEIVE 
VERIFY THAT A LOST DATA ERROR OCCURS. 


ETerritiittiii rt rit tttriititiii tt rt it errr itr i titi ttt tet 


t SGUFFE 

; TEST Se 
Mov #52, TSTNO 
MOV #TStS3, NEXT 
MSTCLR 
BIT #BIT15,STATI 
BEQ +1 
BIT #BITO,STAT3 
BNE +6 
JMP 10$ 
BIT e1712, STATI 
BNE le 
ISR PC, WROM 
JSR PC’ BASELD 
JSR RS, RFRELD 
ad 
JSR RS, XFRELD 
TBUF 
44 
MOV #10,R3 
CLR TEMP 
TSTB 3s @(R1) 


;R1 


CONTAINS BASE DMC11 ADDRESS 
:MASTER 11. 
us 


CLEAR DMC1 
A DMC? 

F YES 
KMC. Wd WITH BITO SET? 
: IF YES 
;SKIP TEST 
‘BR PRESENT? 
: WRITE MICAS CODE 


;LOAD rebesve BA/CC 


:1S 


N CRAM 
SE ADORESS 


rec 
*LOAD XMIT BA/CC 
;BA 

3CC 

;DELAY COUNT 

;CLEAR DELAY COUNTER 
IS RDY 0 SET? 


0222 


ee re ae es ee a ee me ee we ee ee ee oe ee ee + 
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wiv? BS3I8 Gsey? cose 


4 
4051 


babale 


030434 


ce rnssatenaall 


1372 


001 
104014 
0004 


000001 


000020 
OOco0& 


000053 
030544 


100000 
oo0c01 


030542 
010000 


035602 
036002 
03627e 
000010 
001416 
000002 


001416 


000001 


000002 


001226 
001216 


001366 
001372 


001366 


118: 


108: 


TSTS3: 


1$: 


78 
FREE RUNNING TESTS 


10$ 
#8170, 2(R1) 


10$ 
ab TTY »RS 
6( a vR4 


GR IF fet 
;INC DELAY COUNTER 
;BR IF NOT DONE DELA 
;DEC DELAY COUNT 
;BR_IF DELAY NOT DONE 
EET O RDY 0 NOT SET 
1S IT CNTL 0? 

BR IF YES 

;ERROR NOT CNTL O 
‘BUT “EXPECTED” a RS 
;PUT “FOUND” IN R 

is LOST DATA SET? 


ERROR, LOST DATA NOT SET 
SCOPE THIS TEST 


peveccousuncnepereveet*aoee A ERA EA ESLER ELE RAL ESES EEE EE RES 


Y TEST 


gH hoe BTRANSHIT BA THAT WILL TIME OUT 


 aaaeaiasemamannanaakanimnamsnenmnntinnntnenmmesmmentennenia 


* TRANSMIT NON-EXISTENT ME 
#IN FREE 

HAVERIFY T 

; TEST 53 

Mov #53, TSTNO 
MOV 8TSTS4, NEXT 
MSTCLR 
Bir #81715, STATI 
BIT i170, STAT3 
BNE +6 
IMP i0$ 
BIT #81712, STATI 
BNE .-l2 
ISR PC, WROM 
JSR PC’ BASELD 
JSR RS; XFRELD 
177320 

140044 
MOV #10,R3 
CLR MP 
TSTB ss (R11) 
BMI +20 

INC TEMP 
BECO 
BNE 1$ 
HLT 14 
BR 10$ 
BITB #BITO,2(R1) 
BNE 11$ 
HLT 14 


fas ONTAINS BASE DMC11 ADDRESS 
. CLEAR DMC11 
:1S IT A DMC? 


:BR IF YES 

sKMC pf SET? 
SKIP Teele 

;LU PRESENT 


:BR IF NO 
:WRITE MICRO-CODE IN CRAM 

mc BASE ADDRESS 
sLOAD xmiT BA/SC 


IDELAY COUNT 
;CLEAR DELAY. COUNTER 
{1S ROY 0 SET? 


LINC DELAY COUNTER 
:BR DELAY 


DEL y OUNT 
;BR IF DELAY NOT Pat 
; ERROR RDY 0 NOT SET 
31S IT CNTL 0? 


; YES 
;ERROR, NOT CNTL O 


ee OEEe a — -Re—eeEe-—> 


ls 27( 1006) 
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003954 
030736 


000400 
000006 


001226 
001216 
001366 
001372 


001366 


000002 


E02 


PAGE 79 
FREE RUNNING TESTS 


BR 13s pay" 1 . 
11S: MOV #81T8,RS UT “EXPECTED” IN RS 
RR a neh eh 
eis +4 iB HON 
HLT 5 sERROR NON-EX-MEM NOT SET 
10S: SCOPE *SCOPE THIS TEST 
5 RRRRARERLRRRLERAREREEAAEEEL TEST SY SRRSRRRRRRREERRRE EER ERE ES 
:SOECELVE NON-EXISTENT TOR TEST 
CEIVE BA THAT WILL TIME OUT 
at THAT A NNONCERISTEN T MEMORY ERROR OCCURS 
oA Dn dh. 
; TEST S4 
TSTS4: MOV TSTNO 
nOV STSESE,NEXT TAINS BASE DMC11 ADDRESS 
MSTCLR os aLERR BRE LA 
BIT #B1T15,STATI 
BEQ +16 tt ves" 
BIT #BITO,STAT3 oR WITH BITO SET? 
BNE +6 ; F YES 
IMP i0$ :SKIP TEST 
BIT aB1T12, STATL iL PRESENT? 
BNE F NO 
JSR PC ti WRITE MICRO-CODE IN CRAM 
JSR PC; SRer LD “LOAD DM C BASE ADDRESS 
ISR RS; RFRELD ;LOAD RECEIVE BA/CC 
177320 ;BA 
140044 C 
JSR RS, XFRELD sLOAD XMIT BAZCC 
TBUF 
44 C 
MOV #10,R3 “DELAY COUN 
CLR Mp CLEAR BELAY COUNTER 
1$: TB 3s at 1) :IS RDY 0 SET? 
BMI +29 :BR I 
INC TEMP :INC DELAY COUN 
BNE 1§$ *BR IF NOT DONE DELAY 
DEC R3 ;DEC DELAY COUN 
BNE 1$ *BR IF DELAY NOT DONE 
HLT 14. ;ER ROR, RDY 0 NOT SET 
BITB #B1T0,2(R1) its IT CNTL 6? 
BNE 11S . YES 
HL 14 >ERROR, NOT CNTL 0 
BR 10$ CON 
11S: MOV #81T8,RS “PUT “EXPECTED” IN QS 
MOV 6(R1),R4 :PUT "FOUND" IN 
CMP RS,RY 1S NON-EX-MEM sete 
BEQ +4 iBR F YES 
HLT 5 sERROR NON-EX-MEM NOT SET 
10$: SCOPE ‘SCOPE THIS TEST 
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INSRER ONS 


Aiainiaiataraiatataat ata ay 
28 


Ob 4 bb Bm bb te hs pe 


en eo en od 
be be 
mo 


031114 
C3il2g2 


012737 
012737 


012737 
012737 
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oo00SS 
031114 
100000 
000001 
031112 
010000 
035602 
036002 
000043 
000040 
poddde 


001416 


000001 


901000 
OOCO0E © 


OCOOSE 
C2127e 


001226 
001216 


091366 
001372 


001366 


ooocte 


001226 
Oo1216 


TSTSS: 


128: 


138: 


14: 


ils: 


10S: 


TSTSE: 


FO0e2 


PAGE: 


peseeseeseanereeseey eee TEST SS RRRRRRRERREAERAEALE SEE EE EES 
:¥PROCESSOR ERROR T 


;*IN FRE! RUNNT M0 A_BASE TRANSFER T AFTER A 
Heise ARS EEN NEY Gf. VERIFY "Phat A ROCESEGR ERROR OCCURS. 
PUTT erti irri rit irit i tittttitittittiittit tier tet tite 


; TEST SS 

Mov #55, TSTNO 
MOV #TSTSb6, NEXT 
MSTCLR 

BIT #BIT15,STATI 
BEQ +1 

BIT #8179, STAT3 
BNE 

IMP 

BIT sB1T12, STAT! 
BNE .-l 

ISR , WROM 

JSR PC’ BASELD 
BISB #43. (R1) 
TST 1} 

PL -2 

BICB 4#40,(R1) 
CLR EMP 

TSTB ss @ (R11) 

BMI 14$ 

INC TEMP 

BNE 13$ 

HLT 14 

BR 13$ 

BITB #BITO,2(R1) 
BNE 11 

HLT 14 

BR 10$ 

MOV #B1T9,RS 
MOV &(R1).R4 
CMP RS, RY 
BEG +4 
HLT is 

SCOPE 


3Rl CONTAINS = | ee ADDRESS 


is 

ged 
R 
2 


SUT “EXPECTED” i RS 
;PUT “FOUND” IN R 


18 ey ERROR SET? 
ERROR, PROC ERROR NOT SET 
:SCOPE THIS TEST 


SAPRODESSOR ERROR TEST TEST SE RexeRRHERARSERELHARS EAE REESE 
MODE DO A RQI WITH AN ILLEGAL 10 CODE 


#IN 


FREE RUNN 
HAVERIFY THAT A PROCESSOR ERROR OCCURS 


sRRRRRERRRERREA LALLA SEAS RL LALA LALA LELALASRALALALALLSRALALERLERE 


; TEST S6 
hov #56, TSTNC 
MOY #TS1S? NEXT 


0225 


GOe 
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DZDMH.P11 O9-DEC-75 14:59 FREE RUNNING TESTS 

4214 8 TAINS BASE DMC11 ADDRESS 
4 td 031130 104412 MSTCLR iRasTER LER ae 8 

4216 031132 032737 100000 001366 BIT #BIT1S,STATI iI 

4217 031149 0014 Q ,iié ‘OR tf vER 

4218 03114 737 000001 001372 T #B8IT0,STAT3 oy WITH BITO SET? 

ee Bie mu i i Sl at 

ass? pat ize 994.35 nya 001366 BIT #B1T12,STATI fa PRESENT? 

4222 031164 001372 BNE ale -BR IF NO 

No>4 DSLIse DONPS? Ose00E I BAELD aed: 4 go 
i55¢ 138 152711 paB ba BISB ss #46, ( ;RQI AND’ ILLEGAL CODE 

Heeb 031202 105711 STB RD) sHATT FOR RDI 

ussé B315pe ty 11 oo0040 Ste (R1) féLe Mer 

4229 031212 005037 001416 CLR ak sCLEAR COUNTER 

1230 031216 105761 oooo02 1S: iste 2(R1) sBoY 9 SET 

4232 pa isss ipes93 001416 INC TEMP + BUMP CNUNTER DELAY 

4233 031230 001372 BNE 1$ -BR IF NOT DONE 

4234 031232 104014 HLT 14 s SRROR RDY 0 

49395 031234 BR 1$ N 

He3b 031236 132761 000001 ocoooe BITS wB1T0,2(R1) :IS IT CNTL O 

4 2 ft ere ENS 14 Beak "Ror CNTL 0 

ts paises b12705 001000 11S A aTTS RS ‘an te TED. IN RS 

8 & . 

yoy 1 000006 MOV (R1);R4 ate 

ds Bs 15e8 po eRt " CMP Be Ry 15 "pRoe -EnAOR SET? 

on paieee aceyes hi is’ RROR NOT SET 

ibis 31558 ett 10S: SCOPE ERROR FRC BR 

usu? 

sus isa DUPLEX Test nee TEST S7 4xxRRREEAE REAR ELAS ELSE REELS 

’ # 

250 :#IN FREE RUNNING MODE, SET HALF DUPLEX AND L U LOOP 
4251 Hoo A MESSAGE AND VERIFY THAT THERE ARE NO DONES 
uses o RLS RALRLAE LAL RREA ALLS RAL RRELA ALAA RASA LRAASAAALSAL SRA RSARARLLESE 
iee4 ; TEST S7 

4 1 127 7 001226 TSTS?: Mov #57, TSTN 

45 531505 Bisa Wate Spt Ste MOV totao. XT 

4258 ;R1 CONTAINS BASE DMC1! ADDRESS 
NeEH ESB pse7e5 100000 01266 Beyer #81715, STATI iTe TT Aor? ates 

ice BEUSIe Dive coiare rs no A ae 

45e5 031366 oot BNE arto, *BR IF YES 

4264 03] 137 031424 JMP ios i SKI TEST 

Webs 031334 0327 37 O10000 001366 BIT 81712, STAT! ib U PRESENT? 

use> 31349 Bode59 oascoe RR «Bc RON Be IE MICRO-CODE 

4268 031350 004737 036120 JSR PC; BASELH :LOAD BASE AND HALF DUPLEX 
4269 031354 004537 026240 ISR RS; RFRELD :LOAD RECEIVE BUFFER 


HO0e 


OZDMH MACYL1 27(1008) 14-DEC-76 16:32 PAGE 82 PAGE: 0227 
DZ0MH.P11  O9-DEC-7& 14:59 FREE RUNNING TESTS 

4270 931369 034762 RBUF :BA 

4271 O31 oo0044 44 :CC 

4272 031364 O004S37 036272 JSR RS, XFRELD :LOAD TRANSMIT BUFFER 

4273 031370 034714 TBUF iB 

4575 31326 staat oo0003 MOV #3,R3 LOAD DELAY COUNT 

4976 031400 005037 001416 CLR TEMP “CLEAR DELAY 

4o78 Oaluia ipOdBE est a * es ide PO NVES® (ERROR) 

ae eee fee a a ea 

uSBy pata poi37s DEC a PR DECAY Y COUNT 

He8e Os14ee 001370 . BNE 4g BR IF DELAY NOT DONE 

used Baty eta igs: HL 14 i PRROR pone Men HALF -DUPLEX 
4298S 031430 000775 BR 10$ GET OUT 

= 

4288 5 RELEREERERERERAREAREEARERES TEST 60 RRRHRRRRRERREELLLEL EERE ESE 
4289 :4#FREE RUNNING DATA TEST (INTERRUPT DRIVEN EXERCISE 

4599 :#THIS TEST REPEATEDLY QUEUES IVE 

429] :4#7 TRANSMIT BUFFERS AND CHECKS DATA WHEN ALL _7 BUFFERS 
4Dg2 : RECE RANSMIT COUNTS RANGE FROM 1 TO 104, ALSO 
4393 !#ODD AND EVEN TRANSMIT AND RECEIVE BA’S A 
4294 i418 A BINARY COUNT PATTERN. THE RESUME FUNCTICN IS CHECKED IN THIS TEST 
3-3 o KARA RAAAA ALARA REAR RAAA LARA LALA A LAA SALA ALALA ERAAAALAARERELELLE 
4297 ; TEST 60 

4999 031432 012737 OO0D60 001226 TST60: MOV #60, TSTNO 

W560 Gaiaaa 9153% BOG0EO pdicee MOV —s#. EOP, NEXT 

4301 :R1 CONTAINS BASE HCL} ADDRESS 
4302 031446 104412 MSTCLR ?MASTER CLEAR DMC11 

4 031450 032737 100000 001366 BIT 8BITIS,STAT! 31S IT A DMC? 

u30e Oai4e8 Boe757 00001 901372 Bo gatfo.stara enc “wrt BITC SET? 

4306 031466 ate BNE .+6 :BR IF YES 

4307 031470 000137 032434 IMP ENDEX1 :SKIP TEST 

4308 031474 O3e7 32 010000 901366 BIT #BIT12,STAT1 LU PRESENT? 

4309 031502 O01 BNE .-l2 BR IF NO 

MaiT OSIE10 B1e7a? DocoNd 177776 a OtORSMO PS OeK OUT INTERRUPTS 

43} neta pier aa BOL See MOV STATI, RO :GET BR LEVEL 

4313 031522 006200 ASR ‘SHIFT RIGHT 4 TIMES 

Wai Dalese BoESoo aeRO ORD 

Se Be BSE rer S Reopgo. sryzon yew 

a 

4318 pat ese ot h3oc3q 147620 MOV SI ISR, JOMRVEC ;LOAD INPUT VECTOR 

4319 931544 010077 i47b26 MOV V OAD LEVEL 

4320 O31550 612777 O33040 147622 MOV #0tSR, JOMTVEC OAD OUTPUT VECTOR 

4321 031556 010077 147620 MOY RO, SDATLYL sLOAD LEVEL 

ies sINITIALIZE ALL BUFFER LISTS AND COUNT LISTS 

4325 O31562 012737 COD104 034706 MOV #104, TFLAG :TFLAG CONTAINS COUNT 


o0~-e ome eer 6eo = 


102 


DZDMH MACY11 27(1008) 14-DEC-76 16:32 PAGE 83 PAGE: deze 
O20MH. P11 SOE OCoe utes Fock SENNGNG TESTS . 
4326 031570 O1 3454 MOV #XMITBA+2, RO POINTS TO BA LIST 

4327 031574 Ol NeERETS MOV aROUEE Ra ih ONTAINS BUFFER ADDRESS 
BIE Ee oonio a a on ee 
4339 neste 033472 CMP #XxMITBA+20, RO + END OF Bet ERS? 

4331 031612 001372 BNE 1S *NO LOAD NEXT ONE 

4332 031614 012720 033510 2s: MOV #TBUFF,(RO)+  ;LOAD BA LIST WITH XMIT BA 
4333 031620 022700 033510 CMP #XMITBA+36,RO  ;END OF XMIT BUFFERS? 

Wage palese | Bubats EOYs SRCNTAB42.RO. ERO BOTATS TO. SOUNT LIST 

4 B31bs6 Bt paabee 3S: v TELAG oe iP ab rut 

4337 031636 022700 033640 cHP CNTAB+20 jEND OF REC COUNT LIST? 

ix 

4 531644 B04323 000006 034704 MOV pre ~~ COUNT 

4340 031652 012711 O40000 MOV #BiT14, (RI) sSE7 jMASTER CLEAR 

Hol 031656 032737 100000 001366 BIT #B8IT1S,STAT1 Cn 

es Glee Blerit 100000 re gr 1 cone 
4345 167% Oost 033450 CLRTAB: CLR RedUne 0 18 EOC UME 

4346 031 1 033656 MOV #RONTAB, RS :GET READY TO CLEAR ALL RECEIVE 
daa BStctB GoSeBe o3u702 eS: RE ARBUFFE. RS ‘PND BF BUFFER? 

a3ag 1714 arta BNE . ;BR F 

4350 031716 005737 034704 st FLAG “VARIABLE C pad 
S bre tes Be » Hoe, Rea pets 
4354 031734 neha ; CMP IXENTABS IG RY iL 080, 

435S 031740 0013723 BNE BR IF NO 

4356 g31742 S$: CLR R2 R2 IS OUTPUT DONE COUNTER 
4357 031744 CLR RY *R4 15 USED AS INDEX IN OISR 
4358 03174 005711 TST (R1) ?IS RUN SET? 

4359 031750 100376 BPL -2 ;WAIT FOR RUN 

4360 031752 152761 000109 ooj0o02 BISB #BIT6,2°R1) -SET JEO 

4361 031760 022737 O00006 034704 CMP #6,FLAG ;FIRST Tine? 

4362 031766 001003 BNE F NOT 

4363 031770 052711 004143 BIS #4143, (R1) eet LU LOOP, IEI,RGI,BASE I 
4364 031774 O00402 BR NTINUE 

4365 031776 1 gow 44 1s: BI #414, (RL) at be boc Bait REC BAYCS 
wee heard 1 Boa 8 001250 ; MOV 822, TEMP2 : GE 

W328 OSoHe0 Ge2737 boo00? 034704 scan: GRE 1 FLAG ree 

4370 SaShSe O01 "BNE 1$° ‘BR IF NO. 

4371 032030 000137 032472 IMP ENDEX3 :BR 

43 032034 02709 000020 1$ CMP #20, RO : INPUT DONE” 

ie Bete Ooo? aie SCAN2 ine sti Re et DONE FOR ALL MESSAGES? 
42 paces I ° sro 53 °BR IF YE 

4377 032054 000137 032504 IMP SCAN] BR IF NO 

4378 032060 22704 000034 QS: chp #34, R4 sREC DONE FOR ALL MESSAGES? 
4380 Bagot Boor 39 NO 


032504 JMP SCAN :BR IF N 


: 
se 


PAGE: 9229 
-DEC-76 16:32 PAGE 84 
a ge 8 > at REE RUNNING TESTS 
DEDMH.PLI OScbEC-7E 14:99 F MOV —-BRONTAB, RO GET FIRST REC BUFFER 
4382 032072 012700 033656 S$: MOV =. (RO)+, R2 : RS=EXPECTED 
4383 032076 Ole00e CLR RS 'R3 = COUNT f 
4384 032100 005005 | ee ; CHECK FOR O00 XNIT BAS. 
4386 032109 OoS7a7 034704 BPL it 27 BUMP DATA BY 1 (OBD XMIT BA) 
daar Oaeli0 | foGdie » ce sO? CRD) itn fF Ye ALSO 
4988 032112 e271 o000e7 78" :8 tp 000 XMIT BA 
4396 03128 024718 oooN2 a iF 1097 ODD XMIT BA ALSO 
ee fete ferap ome Be eat or roe coo att o's 
u 1 1 7$: : 
0S : MOV TEMP3 DATA 
cee fave Geel’ gE ote 
Be Hes Bee a ee 
43 
401 HLT ; TER 
4398 032146 rae HT hs 
si69 Baei8e p0s203 CHE (RO), RQ ever? 
sig psctee Bel ote BRO iT NEXT REC BUFFER 
quod Basle ee pooons CMP SRONTAB+3H, RO ; ENO. 
4y 1 3SE 
1341 MOV #1,R0 *: OUNTS? 
44 Balfe 012700 000001 TST FLAG NARI BGLE C 
4408 032200 005737 034704 U8 Plag 15 NEGITIVE 
sits Bab5be 034704 BNE CLRTAB ;BR IF NOT DONE 
W4l1 032212 001231 alee if HAR COUNT FOR NEXT LOOP 
Wi paeele 37 00000: 034704 : Bir TD, sBR TO SUB 40 
wait O32¢e4 001003 DEC gee Cond wn pues mene toe 
Wl Gees 73? 00040 034708 gg: eB sDEC Loop cunt 
ct Rene a, Oe eee 
441 : ei! a Tag+2,R2 — ;Re POINTS TO_ XM 
Se Be Lek SRS ee ee 
wies G366 fee? i ADD SXtNTABs 16, we Done AL 7? 
wsd paosea pe2705 033656 NE ; OINTS TO REC BA LIST 
635584 13 MOV #RECBA+12,R2 ;Re /~ ODD 
44 012702 033464 MAKE Thte REE Be 
wg? ee goseee ie 8) MAKE THIS ae 900 
4429 032302 O05222 PQ WRG RARE THIS XMI 
000004 I (Re) + : THIS XMIT BA ODD 
uit B30310 Bosses (Ro) MAKE 
44 10 INC “SKIP TO NEXT 908 BA 
4432 032312 05222 6p TRARE THIS Xr? BA’ GOD 
5 oo0004 IN (Re)+ ; AG NEGITIVE 
wa3> Ose%ee 012737 ee ENDEX: Bisa Side cRL) SHUT DMC 
ui? O30388 T8711 DOL NDEX: 


C-76 16:32 PAGE 8S PAGE: 0220 
SEOMLPLI OS cDeRere IHISO™ FREE RUNNING TESTS 
: : TST FLAG Has NT T OCCURED? 
quae Gassu4 Brose C708 = 68 if 
3s 032346 012700 po0003 MOV #3 ,R0 BASE, OR S OFFSET 
pan eee 105760 035030 2S: TSTB pie RO) cae 
qa45 328 005200 INC a“ ee RY ‘s aa 
wn esse Apfeee 205 ane eae 
np BSH? dpigep 9000s sso Gee HaESETO ae 
we er Boseod TNC RO SBUMP INDEX 
“so O22700 000911 3s: erp afro 'DONE ALL ERROR COUNTERS YET? 
; RESUME 
wee 032412 iee760 009013 035030 CHB #13, BASE (RO) ids Pot spy ad oe 
4454 heen Weer ;NEXT BASE 
4455S taser 22760 ANP 3 BASE(RO) 313 ERRORS BECAUSE OF RESUME 
4456 Pease arta — BNE ENDEX2 iBR IF NOT OK es 
4457 0320434 1 ENDEX1: SCOPE : SCOPE S AEST ecces 
wi58 032436 113737 035033 901259 ENDEX?2: nae BASE+3, Tos save, Ai Oe 
wet fea Lise re Boiss Nove prsesil, TEMPS 
446] 113737 1 001256 y an mee aoe 
032466 104017 fe " :N0 _ 
tas nee 000017 ENDEX3: CHP i zr ae INPUT’ 
001 
oe fee Ree ant BE RE amv courts 
4467 032504 005337 001416 SCANI: DEC 3 ibe fe 
4468 032510 001402 EQ RO ap 
Bese BEL BREE ss BE BRETTON BR, 
4M Gaseee /- ; BEQ 2g : BR IF BONE DELAY 
pad rated 32020 IMP CAN : NOT DONE 
95 nee OpahiG . 2s: HLT is ‘RRO HUNG 
aa 032532 000740 BR ENDEX1 ‘GET OUT 
wre ; INPUT INTERRUPT SERVICE ROUTINE 
due : #17,RO :PROC. ERROR DONE? 
4478 032534 022700 000017 IISR: CMP , ; 
wad faseyp Meter 033450 al BES me He Ths. 2 RESUME INTERRUPT 
1432 BEQ BS ; 
wus pasee5 Ose 7 oooo02 BIT #B1T1, (RI) ibe rent 
Hood ae o00004 MOV #BASE.4(R1) : BASE Ess 
4485 ea 12761 yee 000006 MOV #81T12,6(R1) ‘gran BI 
900006 13S: LR i) LECT FULL DUPLEX 
4ue | O32E04 Baa08D . we sen sCLERR RE UPE FLIG 
irerit = Fs ff ?TS RDI GONE? 
4490 Oseb19 105711 : R i1S ROI G 
wage pase tg 1000776 033450 S Re Sune IBASE of cnr NTL Li. 5 
4493 032620 001493 BEO 148 
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WONOUW CWO 


if 
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ao 
—-VO 
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4:59 FREE RUNNING TESTS 


000041 


bb600e 


034704 


000004 


000004 
000006 


000004 
000006 


034704 


14S: 
8s: 


7$: 


1$: 


es: 


3S: 


6S: 


SS: 
4$: 


15$: 


OISR: 


LOe2 


#41, (RL) :A5K FOR CNTL I 
(RL) sCLERR BSEL 0 


pt T ak, a 
SOESE » CRI) s Ft ADORESS 


: ONT INUE 
#81T3,RO : iT? 
tEREAR CARRY 
sMAKE RO EVEN 
CBA(RO),4(R1) ;LOAD REC BUFFER 
RCNTAB(ROS,6(R1);LOAD COUNT 
; CARRY 
RO ‘ RO BACK 
3$ : CONTINUE 
:CLEAR CARRY 
RO ;MAKE IT EVEN 
XMITBACRO),4(R1);LOAD XMIT BUFFER 
RCNTAB(RO);6(R1):LOAD COUNT 
>CLEAR CARRY 
RO sPUT IT 
#40, (RL) >CLEAR RQI 
(R1} *WAIT FOR 
72 "RDI TO GO AWAY 
RO ; INC COUNT 
ER TF O ASK FOR CNTL I 
#41, (RL) sASK FOR CNTL I 
#17,RO iba YET? 
ag BR IF YES 
#81T3,RO 
pS IF YES 
#44, (RL) sASK FOR REC BA/CC 
#40, (R1) “ASK FOR XMIT BA/CC 
#1,FLAG 1 BYTE MESS? 
15$ °BR IF YE 
#46, (RL) "FORCE PROC. ERROR 
;RETURN 


(R1) SET URN 


INTERRUPT SERVICE ROUTINE 
IT0,2(R1) IS THIS AN ERROR? 
tg . iB NO 
FLAG ids THIS SHUT DOWN INTERRUPT? 
9$ : F NO 
FLAG : YES MAKE FLAG NON-ZERO 


_ - ee ee eee ee ee +++ 


rome PFU FULL pete IF 0 
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DZOMH.P11  09-DEC-76 14:59 FREE RUNNING TESTS 

4550 2761 001000 o00006 CMP  - #BIT9, (RI? ;SHUT DOWN BIT SET? 

4551 1516 BEQ «10 


: YE IS OK 
000017 9S: BAe 5 ie ; RESUME INTERRUPT? 
001000 c00006 CMP 1 teams or fore, BIT SET? 


fe | 
am 


£4 
a 


nin 
ate 
SSaeaae 
NORBaEns 


4556 ) 
4557 033 012711 Foonoe #B1T14, (RI) MASTER CL CLE AR DEVICE 
eee fsati6 00000 001366 IT seal ;DMC_OR KMC? 

0331 1 Q +14 ;BR_IF DMC 
4S60 Orecdt 100000 MOV WBIT1S, (R1) ;SET RUN ON KMC 
4561 10S2e7 000000 INCB #0 ;DELAY ON KMC 
4562 001375 , BNE y 
4563 012737 177777' 033450 MOV #-1, RESUME jSET eave FLAG 
oe HIS te re A art 
tag wen, ae mom ne 

rea i ea 

4569 016137 O00004 118: MOV 4(R1), TEMPS ;SAVE FOR ERROR TYPEOUT 
4570 016137 000006 001254 MOV (RL); TEMPY ; SAVE FOR ERROR TYPEOUT 
4571 104016 HL ERROR 


16 
4 (SP)+, (SP)+ AY T STACK 
ooo0de 18: IT IT2,2(R1) ¢ VE? 

Bye OS ves 
STBUFF+1,4(R1) a BA CORRECT? 


3 


: 
3 


Bearer 033510 co0004 BAB #PaUFF,4cRI) a Be corRECT? 

1401 Begs a Eon 

104014 HLT ROR 
| Erne, BiRLDET 1D ia Bk? 

bee70e oon | e- F Tie 

oee708 O00016 MP Hier Rs ie YET? 


é., XDNTAB(RE) ; et BONE ea 


033712 6$: 


soneseanansctenses 
2 


7 


ae 033712 ADY se fe XDNTAB(R2); s INC. INDEX xNIT DONE CC. 
ueay Bes768 BOGODE ADD SINC INDE 
ioe 142761 000207 oo000e2 BICB #207, 2(R1) CLEAR RD RO 
4594 TSB f 10$:  CLRB (RIL) *CLEAR SEL 
Wea LO5061 ooo002 CLR 2(R1) CLEAR 
4898 Beeoai 833488 po0004 - Ee ae ee eth CTO oF CORRECT BA's 
ee Ree Pa 
We03 104014 nt HLT i iREC 1B ERROR 
4605 S61 033640 OOO00E 75: CMP XCNTAB(RS) ,6(R1); i heck t FoR C CORRECT REC COUNT 


~ - —_——_- —- we we = i ee me ee ee eee 


B 


c68 33 


Pes be be es ee pe ee 


WONMUEWwr-O 


RiRiRRRRRRRRRESES: 
a EE 


Reet Riaes aoacmnonRCeNS 


uw 
= 


Teatataatatad 
Oe 


POT 
wos 


5 


FE 


033376 
3400 


001406 
705 


fom | on | on | ae] 
TT 
Twoe 


ZSESRSE 


mL as salah Fa 


RBS 


00001 


e 


pon 


000104 


000002 

000016 
033656 
000006 033656 

000 

000207 000002 
001 002 
004 00S 

007 
O11; ole 
014 015 

017 
pel O22 
0eS 

027 
031 G32 
035 
Fi 4 
5 

e 
| 
1 O62 
O64 065 
ow 

i 
101 102 
104 105 

107 


PLT bg BR Oe pyttgPEC-7© 10: SE EARNING TESTS 


A #2 
BICB #2077, 2(R1) 


; BUFFERS 


UME: O 
A: .BLKW 17 


0,1,2,3,4,5,6,7 


PINCREMENT RS 
pho A * obi 
: OUNT ERROR 


HL i4 c 

MOV 4¢RL) ,RONTAB(RY) “STORE REC BA 
#e ; NDEX 

MOV BRL) ,RONTAB(RM) ; STORE REC DONE CC 


*CLE 
RET 


;REC & XMIT BA LIST 


; TRANSMIT DATA 


10,11,12,13, 14,15, 16,17, 


20,21,22,23,24,25,26,27 


30, 31,32, 33,34, 35, 36,37 
40,41,42,43,44,45,46,47 
50,51,52,53,54,55,56,57 
60,61,62,63,64,65,66,67 


70,71,72,73, 74,75, 76,77 


100, 101, 102, 103, 104, 105, 


106, 107 


sRECEIVE COUNT TABLE 
: TRANSMIT COUNT TABLE 


iMRI DONE TELE tBAvec) 


;RECEIVER BUFFERS 
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DZOMH.P11 O9-DEC-76 1 
4662 O340S2 000104 
4663 034156 000104 
4664 O34262 000104 
4665 paises 104 
4665 0344 104 
4667 034576 000104 
4668 034702 00 
4669 
4670 
4671 
4672 
4673 
4674 
4675 034704 000000 
4676 034706 000000 
4677 034710 000000 
Were Gsiria Oai101 
weed Gsu7ee Quaib? 
4681 034730 047115 
4682 034736 052123 
4683 034744 055131 
apgd 0347S2 032464 
4686 034760 OO0044 
he 034762 035030 
4689 035030 035430 
4690 
4691 
4692 
4693 
4694 
4695 035430 
4696 
4697 
4698 O35430 104414 
4699 035432 000400 
4700 035434 104414 
mia 035436 ihenta 
4703 O3euNe Obo4Od 
4704 O35444 000207 
4705 
4706 
4707 O35446 
4708 
4710 | 

4 
4711 G3e4s6 Gogol 
4712 O354Se 000207 
4713 
4714 
4715 O0325454 
4716 
4717 


— 16:32 PAGE 89 
FREE RUNNING TESTS 


030460 
033466 


B03 


RBUFFe: .BLKB 104 

RBUFF3: .BLKB 104 

RBUFFY: .BLKB 104 

RBUFFS: .BLKB 104 

RBUFFG&: .BLKB 104 

RBUFF7: .BLKB 104 

RBUFFE: 0 ;END OF RECEIVER BUFFERS 
;BUFFER AREA 

FLAG: OQ 

TFLAG: QO 

RFLAG: O 

TCOUNT: 44 

TBUF : .ASCII/ABCDEFGHI JKLMNOPOQRSTUVWXYZ201234S6789/ 

EVEN 

RCOUNT: 44 

RBUF : =. 446 

EVEN 

BASE: .=. +256. 

; SUBROUTINES 

CLRALL 


SETBRO: 


SETBR1: 


" ;THIS SUBROUTINE CLEARS THE C&Z BITS AND THE BR 


;NEXT WORD IS INSTRUCTION, 


:BReO 
ROMCLK :NEXT WORD IS INSTRUCTION, 
063220 :SP( (0+ 

ROMCLK :NEXT WORD IS INSTRUCTION, 
060400 :BReSP(0)+BR 

RTS PC 

; THIS SUBROUTINE SETS BRO BIT 

ROMCLK ;NEXT WORD IS INSTRUCTION, 
Reon iBReoot 


PC 


; THIS SUBROUTINE SETS BR1 BIT 


—- 22 a oe me a em ee ee 


PAGE : 


ROMCLK PC=S304 
ROMCLK PC=S304 
ROMCLK PC=S3C04 


ROMCLK PC=S304 


0234 


CO3 
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471 414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4918 Peeuee Aeoube 03200 o004Ge :BReOO2 
000207 03300 RTS PC 
472] 03400 
4722 03500 
4723 035462 03600 SETBRY: 
We 03700 ; THIS SUBROUTINE SETS BRY BIT 
4726 O35462 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4727 O35464 O00420 04000 000420 :BReO20 
4728 O35466 000207 04100 RTS PC 
4729 o42 
4730 04300 
4731 035470 O4400  SETBR?: 
4732 4500 ; THIS SUBROUTINE SETS BR7 BIT 
4733 600 
4734 035470 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4735 035472 O00600 04800 OO0600 :BRe200 
4736 035474 O00207 04900 RTS PC 
4737 00 
4738 05100 
4739 035476 05200 «SETC: 
Hoag 05300 ;THIS SUBROUTINE SETS THE C BIT 
4742 035476 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
4743 035500 000777 OS600 000777 :BRe377 
4744 035502 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
4745 035504 063220 05800 063220 (Oe 
4746 035506 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
4747 035510 O60400 06000 060400 ?BReSP(0)+BR 
4748 035512 900207 06100 RTS PC 
4749 06200 
4750 
4751 035514 06 SET2: 
ple 06500 ;THIS SUBROUTINE SETS THE 2 BIT 
4754 14 4 — K :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4 neat ABagss 06800 RonGbe i BRca7? 
4756 035520 000207 06900 RTS PC 
4757 07000 
qveg 035522 ea ROMDAT 
ured BeSop sTHIS SUBROUTINE LOADS RS WITH EXPECTED ROM CONTENTS 
i7e1 o7400 AND LOADS R¥ WITH ACTUAL ROM CONTENTS 
035522 017600 oD0000 07600 MOV a(SP),RO ; INDEX FOR C 
4764 035526 716 o00002 07700 Abb te (SP) j ADJUST STACK 
wee Geese Biches Gir = BADD Roy ROMMPLAD) As jBUT TENPECTED™ 16 fs 
4768 O35546 000207 ate RTS . :RETURN 
4769 08200 
4770 035550 08 RAMDAT: 
4771 084 THIS BROUTINE ai QAOs R4 WITH THE LOWEST 
4772 08500 8 BIT 


SS Ee oe ee ee een eee oe _ 
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DZOMH.P11 
4774 035550 017605 
4775 035554 062716 
4776 035560 O0S01 
1956 035562 052711 
4779 035566 ate 
4780 035570 1044) 
4781 72 061225 
4782 S74 116104 
4783 035600 000207 
4784 
4785 035602 
4786 
4787 
4788 035602 737 
m2 aay 001420 
4791 035614 012702 
4792 035620 012711 
4793 035624 010061 
4794 035630 Ol2e6l 
4795 035634 052711 
4796 035640 005200 
ve fee Gree 
4799 035650 O11 
4800 Se 000207 
4801 
4803 035654 
4804 
4805 
4806 
4807 
4808 
4809 
4810 
4811 035654 O0S000 
ugis 035656 012711 
4813 035662 010061 
4814 035666 012761 
4815 035674 052711 
4816 035700 005200 
4817 702 22700 
4818 001363 
4819 710 005000 
4820 O03571le 012711 
4821 035716 016061 
“Bee 035724 016061 
Sa fee feu 
4825 Bae730 022700 
ss 035744 001362 
2 ES By 
4629 
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000000 
000002 


000400 


ooo00s 


000014 


001366 


000006 


000004 
000006 


WROM: 


1S: 


2s: 


MEMSET: 


1$: 


es: 


PAGE: 
MOV a(SP),RS DATA 
ADD #2, (SP) i AOSUS STACK 
CLR (RL) CLEAR BIT10 
BIS #8178, (R1) ‘CLOCK INSTRUCTION IN CRAM THAT WAS 
JUMPED TO, IT LOADS BR WITH ROM PC 
CLR (R1) :CLR BIT 
ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
061225 ;MOV BR TO PORT S 
MOVE S(R1),R4 *PUT “FOUND” IN R4 
RTS PC : RETURN 


; THIS SUBROUTINE WRITES THE ROMMAP INTO THE CRAM 


BIT #B8IT1S,STAT1 ;BE SURE DMC HAS CRAM 
BEQ es ; SKIP IF NO CRAM 


CLR RO *RO=CRAM ADDRESS 

MOV OMMAP , R2 ?R2 POINTS TO ROMMAP 

MOV #81710, (R1) *SET ROMO 

MOV 4(RI) :LOAD CRAM ADDRESS 

MOV (R2)+,6(R1) "LOAD WORD TO BE WRITTEN 

BIS #BIT13, (R1) :WRITE IT! 

INC 0 :NEXT ADDRESS 

CMP #2000, RO *DONE_YET 

BNE 1$ :BR IF NO 

CLR (RL) CLEAR SELO 

RTS C :RET 

;THIS SUBROUTINE LOADS CRAM WITH SPECIAL INSTRUCT 

CRAM JUMP TEST. ALL GRAN LOCATIONS ARE | ADED 

:W1TH INSTRUCTIONS THAT MOVE 8 37 0 THE BR, EXCEPT THE 
“FOLLOWING CRAM ADDRESSES: 7,525,1777. THESE LOCATIONS 
:CONTAIN INTRUCTIONS WHICH Load THE BR’WITH T ST 
:§ BITS OF THAT CRAM ADDRESS 

CLR RO ;RO_= CRAM ADDRESS 

MOV #BIT10, (R1) SET ROMO 

MOV RO. 4(R1) : 

MOV #437, 6(R1) *LOAD INSTRUCTION 

BIS #81713, (RL) *WRITE INSTRUCTION IN CRAM 

INC RO :NEXT abuReSs 

CMP #2000, RO DONE YET? 

BNE 1$ *BR IF NO 

CLR RO ? INDEX REGISTER 

MOV #B1T10, (RL) :SET 

MOV CRAMA(RO),4(R1) ;LOAD CRAM ADDRESS IN SELY 

MOV INSTUCRO) '6(R1) ;LOAD INSTRUCTIIN TO BE WRITTEN 

BIS #81713, (RI) ;WRITE CRAM 

TST (RO)+ *NEXT 

CMP #14, RO :DONE YET? 

BNE 2g *BR IF NO 

CLR (RL) s CLEAR ALL BITS 

RTS: PC : RETURN 


eo eo 
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DZDMH. P 09-DEC- SUBROUTINES 
west Bse5es ROBB BpoeoR papegE INSCO  CRANA: 
ug32 035766 OO0400 14400 —_—sINSTU: 
Wasa e558 Bobb tueoo 
uB3S 035774 00407 14700 
4836 025776 000777 14800 
4837 036000 14900 
4838 15000 
4839 15100 
uB40 036002 15200  BASELD: 
4g41 15300 
Wau tego 
ues aeons 45544 TS0G0 oozes 12500 
vou, Geenis Cle7iy jou = 
wens Gaetee Oils 1510) 
4851 036032 100376 16300 : 
ages Oseoa fesett §Bgqoag tpd0e 
4854 036044 105711 16600 28: 
ugee Bsepes AP99Z o3s030 oooo0y fPSH8 
4857 036056 061 000006 16900 
ei fee teil ce 
ubes Baeose fpestt 000% bus: 
4263 036100 100376 
upee Baetos Paert BapoNe 
ue66 O36112 105711 65S: 
4867 14 19 
4uBEB 116 17400 
4BE9 17500 
4870 036120 17600  BASELH: 
4871 17700 
4E73 1800 
4874 036120 012711 o4O000 18000 
WE7e BSEIS2 eras 100000 ocl366 18156 
4877 036134 012711 199900 18300 
ues Goetay OoTS _ 1Bco5 
es ee eB 
4882 036152 052711 oo4o0c 18800 
48e4 heats testi —— 1830 2s: 
4B85 036164 100376 19100 


E03 


WORD 0,1,4,7,1777,525 

000400 ;BReO 

p 401 Bed 
404 ;BRe4 

000407 ;BRe? 

000777 ; BRe377 

0 BRe 12S 


; THIS SUBROUTINE LOADS THE DMC WITH A BASE ADDRESS 


“AND PUTS DMC INTO FULL-DUPLEX MODE 
mY STE. sORRTR tem 
BEQ +6 ;BR IF NO 
MOV WBITIS, (RL) iE RAM SET RUN 
INCB tk L 
BNE 4 :BR IF NOT DONE DELAY 
TST (R1) HIS F er’ 
rs SY T11, (RL) L 
Step it ate Bd Cyr OOe 
TSTB ;RDY : SET? 

Bab aba, 4(R1) BR J alge ADDRESS 
gtr $0. (RL) ELE kG 

ai tri} SDV I Cher? 
ae crn sR EON CCNTL I 
FL98 tats *WAIT Pee Rot 
a tet 
Stee #40 tri) itEAR ROI 

TSTB Ss (RL :RDI UP? 
mR rdw 


;THIS SUBROUTINE LOADS THE DMC WITH A BASE ADDRESS 
AND PUTS DMC INTO HALF-DUPLEX MODE 


MOV #81714, (R1) ;MASTER CLEAR 
T #BIT1S;STATI 5 CRAM? 
Q + :BR IF NO 

MOV #BITIS, (RL) IF CRAM SET RUN 

INCB sow 

BNE 4 ‘BR IF NOT DONE DELAY 

TST (RL) 1S RUN per 

BPL 1 ;BR IF 

BIS #8IT11, (RL) :SET Lu LOOP 

B1$B #43, (RL) :BASE REQUEST 

S78 2s (R13 :RDY I SET? 

BPL 2s F NO 


me nm a rr ee a eee ee 
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= eats bogoe! 


ides 
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ba008 


000040 
000041 


002000 
000049 


ocoo44 


000040 


000004 


000006 


18800 
19400 


19500 
19600 


coe awe at 


6S$: 


RFRELD: 


1$: 


2s: 


XFRELD: 


1S: 


es: 


FO3 


PAGE: 


MOV #BASE,4(R1? tA ERR ce BASE ADDRESS 
6(R1) 


BICB #40, (RI) : CLEAR Sr 
TSTB Ris 1 2 CLEAR? 
He #41, (RL) BR. F oh° CNTL I 
TSTB. ss (RL WAIT FOR RDI 
BPL 64$ ‘BR IF NOT SETY 
MOV ag1T10 6{(R1) SET HALF DUPLEX 
BICB (RL) CLEAR ROI 

TSTB sh sROI ? 

BMI eed ;BR_IF YES 

RTS SC ; RETURN 


; THIS SUBROUTINE LOADS THE DMC WITH A RECEIVE BA/CC 
BISB #44, (R1) ae a ene 


TSTB ss (RLS :R 

BPL 1$ BR I 5 

MOV (RS)+,4(R1) sLOAD REC BA 
MOV (R )+6°R1) LOAD REC cc 
BICB (R1) -CLEAR RQI 
TSTB ais *15 RDY I CLEAR 
BMI ss : NO 

RTS RS : RETURN 


; THIS SUBROUTINE LOADS THE DMC WITH A TRANSMIT BA/CC 
ISB #40, (R1) ;XMIT Barer REQUEST 


STB Ss (RIL :RDY I SET? 

BPL 1§ BR IF No 

MOV (RS)+,4(R1) tL T 

MOV (R5)+'6(R1) ‘LOAD XMIT CC 

BICB = #40, (R11) CLEAR ROI 

TSTB sR : Is RDY I CLEAR 
2s ;BR I 

RTS RS + RETURN 


77>/CRAM 
>7CRAM AL RODRESSING ERROR/ 


BSL 


. ASC 

ACLS 79) 7 ROM OTA ERROR 

8 ODT E oR IN IBUS* REGIO/ 
-ASCI A |'-5 MAIN MEMORY TEST/ 

ASC ‘ OP MAR TEST/ 

.ASC <(377>/BR RIGHT SHIFT TEST/ 
-ASCIZ <377>/RECEIVE DATA ERROR/ 

Baki s <377>/F RUNNING ERROR/ 

ASCIZ <377>/CONTROL OUT ERROR/ 

-ASCIZ <377>/INTERNAL DDCMP ERROR COUNTS NON ZERO- 
-ASCIZ <377>/EXPECTED FOUND ADDRESS/ 
-ASCIZ <377>/EXPECTED FOUND/ 

eASCIZ <377>7 SELY SEL6/ 


9238 


GO3 
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037016 041377 0OS1501 oessos rat HN: .ASCIZ (377>/BASE+3 THRU BASE+12 / 

DO 

te 
037044 006003 02300 OT1: 3 
037046 006 004 02400 .BYTE 6,4 
037050 001264 02500 SAVRe 
7052 O06 004 02600 .BYTE 6,4 
7054 001270 02700 SAVRY 
037056 004 oo2 02800 -BYTE 4,2 
037060 901260 02900 SAVRO 
037062 000003 03000 of2: 3 
037064 006 004 03100 - -BYTE 6,4 
037066 001272 03200 SAVRS 
037070 ODs oo4 03300 -BYTE 6,4 
037072 001270 03400 SAVRY 
037074 004 o02 03500 -BYTE 4,2 
70 y OO i 

JU DT3: 

004 ae -BYTE 6,4 
ci me on EE gy 
B18 001298 , Bat oD BM: ; 

11 604 002 04200 -BYTE 4,2 
037114 001252 04300 TEMP3 
037116 o00002 O4400 OT4: 2 
037120 003 007 04500 .BYTE 3,7 
O37 lee o01e7e 00 SAVR 

1 oo2 700 -BYTE 3,2 
037126 001270 04800 SAVRY 
037130 are a 94800 OTS: : ve aa 

UU . » 
is onig78 " ine 
a oe !|COté« aE. tla 1, 
037140 001270 05300 SAVRY 
neat 010 — oo Soy 3,10 
G37 001893 pepo BMS ; 

150 004 05700 “BYTE 3,4 
037152 001270 05800 SAVRY 
037154 oo2 05900 “BYTE 4,2 
037156 034704 06000 FLAG 

160 06100 OT7: 3 
037162 003 010 06200 -BYTE 3,10 
037164 001272 06300 SAVRS 
037166 903 004 06400 “BYTE 3,4 
b37 170 001270 06500 SAVRY 

1 p02 06600 -BYTE 4,2 
037174 001264 06700 SAVRe 
037176 000003 ~ 06800 OTIO: _* - 
ee oe i ae 
037206 001270 07200 SAVRY 

7210 Dee oo2 7300 Bvt 6,2 

7214 ppAe Rs ora OTll: 2 
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0372: O06 G04 a7700 
37558 001 
7eee fae 002 7 
037224 001254 07900 
bev ees 000010 noe 08000 OTle: 
$53 001 OB 
7234 3 002 
037236 34 08400 
Beqe ooises || Be00 
Ba5u4 003 OGe 00 
037246 36 08800 
ples! oben o0e p3000 
5a 4 503 002 a1 
037256 035040 09200 
037260 003 002 09300 
037262 001256 09400 
037264 003 092 99500 
037266 O03504e 09600 
09700 
37270 09800 .ERRTAB: 
037270 000000 09900 
037272 000000 10000 
eta 000000 tes "1 
837508 baeze2 10 a 
037302 037044 10400 OT] 
7304 036345 10500 + EMe 
037306 036722 10600 1 
7310 BS? 10700 Tl 
7312 10800 + EM1 
037314 036722 10900 OHI 
pe 11000 OTe 
037 036401 11100 =EM3 
037322 0367 11200 @6DH1 
037324 037100 11300 DT3 
037326 O364ee 11400 =EM4 
037330 036 11500 Dke 
037332 037116 11600 OT4 
037334 03642 11700 =EMY 
037336 03675 11800 OHe 
037340 037130 11900 OTS 
037342 0364 12000 EMS 
037344 036754 12100 DHe 
a cE 
5400 BML 
037354 037142 12500 DT6 
037356 036516 icon EN? 
any a 6. 
037366 4 13000 DHe 
037370 O37115 13100 OT4 


1! 


le 


PAGE: 


0240 


en 


103 
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7 1320 M 
a Be Cae 
7, l 13400 T10 
037400 3500 EMle 
037402 136 0 ;HLT 14 


00 
3000 Enz 
DH2 ;HLT 1S 


13900 
ei 
4 4 ;HLT 16 
4 


1 
C37420 037214 4300 Tl 
74 4 M14 
74 sp 45 H ;HLT 17 
4 7¢e2 146 Tle 
14700 
14800 
037430 14900 CORMAX 


JO3 
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ADRCNT= 004301 8S8x 894% 9038 
A 7 
RUSTAT SoBe a 
8as5€ 035030 ao man | 4U4E Quse 4yyss y4ucg YuEQ 4460 YUE | YUM 4509 46898 Y4ece. 
Ben Sele Oh Ele Foes Be eens es ie 
BITd = 
ano + oo of 8 2 8 me ey wo ue 
SITIO aaa O48 33 lle 1133 ll 1S03 4ugP 
= 63. 1475 1486 1682 1718 1754 1770 1804 2108 4765 4732 4812 4820 
BIT11 = 
BiTle = 0 itteed HH Fotig ier aon 3377 4033 u 5 u 4177 u WeEs 4308 4Yyos 
Hii | Bae ra ae ae ee: ae es 
a ee ee ee er rc ae ee ae: 
2706 2763 e820 2s 938 3000 3053 3451 348 7 3 34 
ait Site aie hy | : : 1 1 4 3 3633 3307 3783 4) 
12 = opo004 0 4788 4BYS 4847 4875 4977 
eiTz = poms an Ce 
piri = Ooones gis 17 114g 182408 
ie = 0001 ee 1133 118 1908 2062 4360 YE65 
8s s 1 14 l 7 
ABE ae 8 1511 15131519522 S73 BOE 4103 wiz 4777 
VL 117; 
Ba O00 By Pere 
CHRCNT 004620 942% 94S gug 96S5* 8 SS 
CKSWR 7362 
enn 12408 SE} . we 
ek Bra 12038 
CKSWRY 0O074S0 
eae ooieue ‘Fle tek ee 
148 dire 3709 
oe Bi Be Be Hh Be Be BG Be Be xe Be 
CLRTAB 031676 ae 4411 271 ieee " 
ENT OBi708 607 iio3e 1 
Sa Bch a ee ee 
com OO70I8 ese 1938 
3 Ts on . 218 cys 610 1055 1366 


= ee 


KO3 
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CRAM ODBS1 Lge 1405 
RAMA 4 48308 
aN ODI fee, 6 GBee logue «1265 = 12b7e «1271 
aj ieee 1370 
CoRNAP 010264 1348 
CYCLE 07620 700 OCOMLSC(itSs«CLSS 
Tage o0sie4 Fit 1031 «41083 ~«= «108s 
= 
Tab’ doeit3 i829 1049 «= «10528 
Y= 100413 2578 é 
DEVADR 004276 cbs 891 Ss 
DEVTAB 002722 S80 sea 
DHI ee ya2ce 
4 % 
a ne 
TSPLA 001200 iussS00k «SSO 715% 
DISPRE 000174 i288 06 
TV 00 38 Sej See GS7 12551269 19SLH SIME SHOR ISHIX ISHS 1570 
Bt is’ 17688 
001 ate 
DNCRDI O01210 58Cg 
BNCRO2 001820 5908 
DNCROS 001530 5954 
DNCROY O01540 5008 
001250 3058 
oe 108 ww 
ab1870 ast 
to OBIEID a5cy 
DMCRI2 001620 3508 
DMCRI3 001630 3358 
14 001640 3408 
ie SoleeD =O 
16 OO 8 
i? oole + 
GoM 


1 745 782 1095 1141 1273% 186 31 1638 
AH jase 1133 il134# 1140e lil42ee 1le82% 1283s 

731 1349% 1364* 1526% 1527 1535 1537 

ll 1154 1159 1286% 12878 12868 


# * 
* 1583 4319% : 
* 1275* 1291 4318% 


apes 


332 
£Mo 
N 
re 2 
——e 8 
— 
ryt ir 
—-oOr~— 
Ride ee 
a oe ee 


-855 
SS888888888888S8 
uw 


ee 28 
+_ 4+ 
ICC) 
B40 Bt bb be Be bs bp hs he bo pe 


b+ bh 2 6 b-* b= b= bb hs eH re 


RON 
we 
e 
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a i 
1400 ebis 1293% 
1700 is 1 Boe 
49258 
‘5 uasee 
037226 49258 
037062 49258 
037100 vases 
3s 8 
49258 
49¢58 
49258 
49258 
1 49258 
49258 





LOS 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


1296% 4321* 
12e94#- 1295 4320 


48S 538 548 642 1265 


1267 


1345 


1350 


1562 


PAGE: 


0244 


MO3 
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49258 
492S8 
495% 
ee 
49°S8 
49258 
4412 44378 
4307 44S7% 83 HU? Y 4573 
yada 4447 ras Yacg 44S8% 
4371 
3678 
3708 “ 
3738 
3768 
3798 
3828 
3858 
8a 
ls 
r} 
7% 
4008 
we 
# 
ERCT1 4098 
4l28 
9 5998 603 
1638 727 754 1066% 1280# 
ERRFL 1325 2028 483% rigs 77S5* 1016% 1029 1043% 1101 
i605 tte 10478 
T 24 1041 107Ss8 
IT = 000205 She 
ae Sera ipoue te 1 1860% 1 188so0* 1 1 190g 1 1929 19 19 
teay* $828, 1823 = t8RE 18} «SBR SEP 185s fare” daew «Adeg | aen de 
4386 4408 4410% 4413 4418% 44435* 4438 4536 4S47 4S49% 467Se 4925 
FLOAT 002536 cseter | 588 
Y $08 S94 
a a ee 
COUNT 1222 . 1598 ie 778% 
ISR 431 44788 
NBUF 861 11808 
NCHAR 1206 12348 
tat ate As 509 529 536% 
The 4 1308 1356 1369 1378 1445 1454 
NPY 138 1 ' 1417 1433 1612 
# 
KMCM 8 tigee 
tine 1 ey 1446 
thn TS Be ie38 9028 903 
LOCK 001220 1588 777% 793 735 1035 1675* 1709% 17478 ##%:768% 1794# #18298 1875  !924e 
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1955#  2033%': 2059%  2094#- th 2160% 2173% 2199% 2215% 2227% 2252%  2269% 


Sen 3614 * 364S* #3676% Seea 3707% ##3738% #3756% #3769% 
TOCTn’ Bpuses Sous oey : 
tea, Bleed Tn cn a oe 
MASKX 1244 1728 
T 1037 11658 
me 74 ei litte 1033 1034 1042 116S5# 1303 1365 
MDATA 7320 963 73 11828 
MEMLIM 001304 1888 680% 
MEMSET 035654 a! . 3061 3123 3185 3247 3309 3371 3433 3495 3557 3619 
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